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Listing Info . . . 

Willi 

Thanks for the answers to my various Apple II Pascal p-code interpreter 
listing questions. 

Great job with this disassembly, I know it must have taken quite a while. 

- David Craig 



>From: Willi Kusche < willigallvantaqe . com > 

>To: Shirl < shirlqatogcvbermesa . com > 

>Sub]ect: Re: Runtime listing 

>Date: Sun, Sep 19, 2004, 12:15 AM 

> 

> Hi! 
> 

> On 18-Sep-04, Shirl wrote: 
> 

> ->Thanks very much for the Pascal interpeter 6502 disassembly. 
> 

> ->Is this for APPLE II PASCAL version 1.3? Seems to be based on a comment I 

> ->saw talking about 1.3. 
> 

> It's for 1.1, 
> 

> ->Did you make this disassembly your self? Seems like a lot of work. 
> 

> Yes, it took a lot of time. Really can't call it work. 
> 

> ->Did you have the original listing to work from? Saw some conditional 

> ->assembly stuff relating to the Apple lie which would be hard to know about 

> ->unless you had the actual listing. 
> 

> No original listing. But I did merge in information I found from other 

> sources. 
> 

> The listing I sent you is for version 1.1. But the some of the included 

> modules are for all the versions of the runtime package that I have. For 

> instance, the "pcinterp.ias" module has pseudo-operation codes that control 

> the assembly depending on labels defined by the DFLAG pseudo-op. 
> 

> I just created an archive of the five "control" files that, when 

> assembled, match the five versions of the runtime package I have. That 

> archive is attached. 
> 

> Willi 
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Listing Sections 



1 
1 
133 
192 
243 
289 
1448 
1852 
1970 
2030 
2083 
2106 
2143 
2191 
2210 
2264 
2383 
2398 
2552 
2599 
2629 
2809 
2984 
3045 
3076 
3105 
3127 
3191 
3247 
3339 
3463 

3512 
3567 
3601 
3696 
3803 
3908 
3930 
4130 

4170 
4347 
4435 
4469 
4495 
4545 
4663 
4709 

4736 



PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 

PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 

PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 

PAGE 



Original UCSD Pascal' 

P-code routine address table' 

Call system procedure routine address table' 

Extract operand to memory' 

Extract operand to register pair' 

Subroutines ' 

Short index and load word 

Case jump' 

Allocate variable on heap' 

Mark heap or release heap' 

Exit operating system' 

Absolute value of TOS' 

Add TOS and TOS-1' 

Negate TOS' 

Subtract TOS from TOS-1' 

Subroutines ' 

Square TOS' 

Common routine for integer divide and modulo' 

Divide TOS-1 by TOS' 

Modulo' 

Check against subrange bounds' 

Load constant string address' 

String assign' 

Index string array' 

Static index and load word' 

Increment field pointer' 

Index array' 

Index packed array' 

Load a packed field' 

Store into a packed field' 

Set logic - Subroutine for INT, DIP and UNI 

(AND, AND NOT and OR) ' 

Intersection (AND) ' 
Difference (AND NOT) ' 
Union (OR) ' 
Adjust' 
Membership' 
Build singleton set' 
Build a subrange set' 
Masks for packed field manipulation and 
for set construction' 
Compare logic' 

Strings ' 

Reals' 

Booleans ' 

Integers ' 

Integer equality' 

Subroutine for Sets' 

Subroutines used by 



Set logic 

Set logic 

Set logic 

Set logic 

Set logic 

Set logic 

Set logic 



Compare logic 

Compare logic 

Compare logic 

Compare logic 

Compare logic 

Compare logic 

Compare logic 



subset/superset testing 
'Compare logic - Test if set 



A is equal to set B' 
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4779 


.PAGE 


4882 


.PAGE 


4908 


.PAGE 


4935 


.PAGE 


4990 


.PAGE 


5084 


.PAGE 


5385 


.PAGE 


5468 


.PAGE 


5496 


.PAGE 


5522 


.PAGE 


5583 


.PAGE 


5620 


.PAGE 


5797 


.PAGE 


5814 


.PAGE 


5874 


.PAGE 


5968 


.PAGE 


6266 


.PAGE 


6360 


.PAGE 


6386 


.PAGE 


7018 


.PAGE 


7394 


.PAGE 


7416 


.PAGE 


7484 


.PAGE 


7509 


.PAGE 


7535 


.PAGE 


7635 


.PAGE 


7702 


.PAGE 


7786 


.PAGE 


7956 


.PAGE 


8057 


.PAGE 


8175 


.PAGE 


8214 


.PAGE 


8255 


.PAGE 


8287 


.PAGE 


8530 


.PAGE 


8590 


.PAGE 


8673 


.PAGE 


8842 


.PAGE 


8886 


.PAGE 


9100 


.PAGE 


9140 


.PAGE 


9225 


.PAGE 


9277 


.PAGE 


9366 


.PAGE 


9639 


.PAGE 


1 


.PAGE 


29 


.PAGE 


93 


.PAGE 


1 


.PAGE 


157 


.PAGE 


283 


.PAGE 


431 


.PAGE 


506 


.PAGE 



Compare logic - Sets' 

Subroutine for external procedure call' 

Call all procedures except external' 

Common logic for subroutine used by 

all procedure calls' 

Assembly language procedure' 

Calculate address of activation record' 

Call intermediate procedure' 

Call local procedure' 

Call global procedure' 

Call external or base procedure' 

Common call procedure logic' 

Return from procedure' 

Set "A7C" pointer' 

Compute ??? total' 

Some subroutines' 

Read segment into memory' 

Move logic for 128K version' 

Determine if segment is already in memory' 

Load segment into memory' 

Move logic for 128K version' 

Subroutines for decrementing pointers' 

Unload segment ' 

Load/Unload segment to/from memory' 

Call system procedure' 

TREESEARCH' 

FILLCHAR' 

SCAN' 

EXIT' 

Other op codes ' 

MOVELEFT or MOVERIGHT' 

Free memory' 

Pull real value from stack' 

Push real value on stack' 

FP subroutines' 

Floating point - Add' 

Floating point - Subtract' 

Floating point - Divide' 

Floating point - Multiply' 

Floating point - Square' 

Integer to real conversion' 

Real to integer subroutine' 

Real to integer conversion' 

Power of ten ' 

More support for CSP' 

System procedure 38' 

Initialization - Address constants' 

Initialization - String constants' 

Initialization - Copy init code to non-bank RAM' 

Part 2 of initialization' 

Load directory' 

Search directory for SYSTEM. PASCAL' 

Load SYSTEM. PASCAL' 

Initialize SYSCOMM tables' 
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568 


.PAGE 


803 


.PAGE 


853 


.PAGE 


1 


.PAGE 


46 


.PAGE 


74 


.PAGE 


138 


.PAGE 


168 


.PAGE 


188 


.PAGE 


218 


.PAGE 


279 


.PAGE 


340 


.PAGE 


71 


.PAGE 


454 


.PAGE 


610 


.PAGE 


770 


.PAGE 


878 


.PAGE 


1110 


.PAGE 


5 


.PAGE 


1 


.PAGE 


11 


.PAGE 


70 


.PAGE 


202 


.PAGE 


293 


.PAGE 


462 


.PAGE 


390 


.PAGE 


444 


.PAGE 


494 


.PAGE 


528 


.PAGE 


557 


.PAGE 


570 


.PAGE 


589 


.PAGE 


606 


.PAGE 


636 


.PAGE 


695 


.PAGE 


715 


.PAGE 


746 


.PAGE 


757 


.PAGE 


779 


.PAGE 


803 


.PAGE 


851 


.PAGE 


873 


.PAGE 


896 


.PAGE 


918 


.PAGE 


158 


.PAGE 


500 


.PAGE 


600 


.PAGE 


1 


.PAGE 



file' 



Build 111 table from segment data in .CODE 

Logic relocated from original version or 

not in original version' 

Logic from original version' 

Tables ' 

Go to appropriate user defined driver' 

Odds and ends' 

Main BIOS jump table' 

Go to address of substitute disk driver' 

Odds and ends' 

Offset jump table' 

Switch between main logic and I/O logic' 

More odds and ends' 

Disk I/O' 

Write data field ' 

Read address field' 

Tables ' 

Read data field' 

Position read head' 

Disk initialization' 

Table of addresses for page zero' 

Clear memory' 

Slot scan' 

More stuff 

Logic for versions after 1.0' 

Logic for version 1.0' 

Console initialization' 

Console read' 

Printer initialization' 

Firmware initialization' 

Remote initialization' 

Initialize com card' 

Initialize serial card' 

Assorted serial card setup' 

Console initialization' 

Write to firmware' 

Write to serial card' 

Remote write' 

Write to printer card in slot 1' 

Write to com card' 

Printer write' 

Remote read ' 

Read from com card' 

Read from firmware' 

Read from serial card' 

Handle output of $00..$1F' 

Write character to screen' 

Convert vertical position to screen addresses 

ID search' 
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Listing 



1 ;.PAGE 'Original UCSD Pascal' 



2 


; Source file generated by Wi 


3 


t 






4 


t 






5 


t 






6 


* 


LST OFF 




7 


/ 






8 


/ 


Assembly control 


9 


/ 






10 


GRIG 


DFLAG 




11 


*V11 


DFLAG 




12 


PROCV EQU 2 




13 


INTPGS EQU 


4 


14 


MAXVOL EQU 


13 


15 


VERK 


EQU 2 




16 


FLAVK EQU $01 




17 


INITK2 EQU 


64 


18 


INITK3 EQU 


$01 


19 


/ 






20 


t 






21 


t 






22 




INCLUDE MACROS. IAS 


1 


t 






2 


t 






3 


t 






4 


RDMAIN MACRO 




5 




IFDEF BIG 




6 




STA RAMRDC 




7 




ENDIF 




8 




ENDM 




9 








10 








11 








12 


RDAUX MACRO 




13 




IFDEF BIG 




14 




STA RAMRDS 




15 




ENDIF 




16 




ENDM 




23 


/ 






24 


t 






25 


t 






26 




INCLUDE 


MAPPG0 . IAS 


1 


t 






2 


t 






3 


t 






4 




DSECT 




5 




ORG 




6 


P0BASE 




7 


A00 


DS 2 




8 


A02 


DS 2 




9 




DS 54 




10 


A3A 


DS 2 


; New 


11 




DS 2 




12 


A3E 


DS 2 




13 


A40 


DS 2 


; New 
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14 


A42 DS 


2 


; New 


15 


A44 DS 


2 


; New 


16 


A46 DS 


2 




17 


DS 


8 




18 


BASPTR 


DS 


2 


19 


MSPTR DS 


2 




20 


JTBPTR 


DS 


2 


21 


SEGPTR 


DS 


2 


22 


IPCPTR 


DS 


2 


23 


HPPTR DS 


2 




24 


PSKPTR 


DS 


2 


25 


ifndef GRIG 




26 


ifdef BIG 






27 


BZ5E DS 


2 




28 


BZ60 DS 


2 




29 


BZ62 DS 


2 




30 


BZ64 DS 


2 




31 


BZ66 DS 


2 




32 


else 






33 


DS 


10 




34 


endif 






35 


endif 






36 


OPRND DS 


2 




37 


DS 


2 




38 


A62 DS 


2 




39 


*A64 






40 


VARPTR 






41 


SUM DS 


2 




42 


SPTEMP 


DS 


2 


43 


SRCPTR 


DS 


2 


44 


DSTPTR 


DS 


2 


45 


CMPTYP 






46 


A6C DS 


2 




47 


JMPPC DS 


3 




48 


JMPCSP 


DS 


3 


49 


ifdef GRIG 






50 


NB8 






51 


PCDSIZ 






52 


endif 






53 


FPREGl 


;DS 


6 


54 


A74 DS 


2 




55 


ifndef GRIG 




56 


PCDSIZ 






57 


endif 






58 


A76 DS 


2 




59 


PRGCNG 






60 


A78 DS 


2 




61 


BLKNUM 






62 


FPREG2 


;DS 


6 


63 


A7A DS 


2 




64 


A7C DS 


2 




65 


ARPTR 






66 


A7E DS 


2 




67 


FPREG3 


;DS 


6 


68 


A80 DS 


1 




69 


A81 DS 


1 




70 


A82 DS 


2 




71 


ifdef GRIG 






72 


LCNTH 






73 


NBA 
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74 


endif 






75 


MLEXLV 






76 


A84 DS 


1 




77 


A85 DS 


1 




78 


SEGNO 






79 


A86 DS 


2 




80 


TMSPTR 


;DS 


2 


81 


FPRETA 


;DS 


2 


82 


A88 DS 


2 




83 


A8A DS 


2 




84 


TJTPTR 






85 


A8C DS 


2 




86 


A8E DS 


1 




87 


A8F DS 


1 




88 


A90 DS 


2 




89 


DS 


4 




90 


A96 DS 


1 




91 


A97 DS 


1 




92 


A98 DS 


1 




93 


DS 


3 




94 


A9C DS 


1 




95 


ifdef GRIG 






96 


DS 


30 




97 


else 






98 


ZA7 DS 


2 




99 


DS 


15 




100 


NB8 DS 


2 




101 


LCNTH 






102 


NBA DS 


1 




103 


endif 






104 


DS 


2 




105 


ABD DS 


1 




106 


ABE DS 


1 


/ 


107 


ABF DS 


1 




108 


RETADR 


DS 


1 


109 


ACl DS 


1 




110 


AC2 DS 


1 




111 


AC3 DS 


1 




112 


AC4 DS 


1 




113 


AC5 DS 


1 




114 


DS 


1 




115 


AC7 DS 


1 




116 


REQSLT 


DS 


1 


117 


REQTRK 


DS 


1 


118 


AFDATA 






119 


ACA DS 


1 




120 


ACTSEC 


DS 


1 


121 


ACTTRK 


DS 


1 


122 


ACTVOL 


DS 


1 


123 


HSLOTl 






124 


PRVTRK 






125 


HCKSUM 


DS 


1 


126 


RETRYC 






127 


HODDB 






128 


SAVEY 






129 


LOOPC 






130 


ACF DS 


1 




131 


AD0 DS 


2 




132 


AD2 DS 


1 




133 


AD3 DS 


1 





New 
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134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

27 

28 

29 

30 

31 

32 

33 

34 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



AD6 
AD8 

AE0 
AEl 



DS 

DS 

DS 

DS 

DS 

DS 

DS 
RTPTR DS 
WTPTR DS 
UDJVP DS 

DS 
SLLPTR 
SLRPTR 
HPOS DS 
VPOS DS 
TEMP DS 
SYCPTR 

ifndef GRIG 
CNFLGS 
NBFll DS 
ESCFLG 

DS 
SVFLGS 
endif 

DEND 



2 

2 

2 

6 

1 

1 

2 

2 

2 

2 

6 

DS 

DS 

1 

1 

2 

DS 

DS 

1 

DS 

2 

DS 



1 

; New 

1 



Moved 
Moved 
New 



PIBASE EQU $0100 

Disk I/O references to pages two and three 
INCLUDE MAPDIO.IAS 

A0200 EQU $0200 



BUFF6B 



BUFF2B 



SLOTNO 
DRVNO EQU 
A03A3 EQU 
A03A4 EQU 
A03A5 EQU 
XFRADR 
RDWRFL 
A03AD EQU 
A03AE EQU 
PRVSLT 
PRVDRV 
A03B1 EQU 



EQU $0200 



EQU $0300 



EQU 

$03A2 

$03A3 

$03A4 

$03A5 

EQU 

EQU 

$03AD 

$03AE 

EQU 

EQU 

$03B1 



$03A1 



$03A8 
$03AC 



$03AF 
$03B0 
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35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



I/O slot references 



A0478 
A04F8 
A05B8 
A06F8 



EQU 
EQU 
EQU 
EQU 



$0478 
$04F8 
$05B8 
$06F8 



DUMMY EQU $1000 



A6000 EQU $6000 

A6200 EQU $6200 

A6800 EQU $6800 

A8000 EQU $8000 

System communications area 

INCLUDE MAPSYSC.IAS 
DSECT 



ifdef BIG 

QRG $BB5C 
else 

QRG $BD1C 
endif 



ABDIC DS 2 
ifdef BIG 



SXXTBL 

endif 



DS 



64 



Segment use counters 
SUCTBL DS INITK2 

Segment load addresses 
SLATBL DS INITK2 

iuTBL DS INITK2 

'IQRSLT' Result of last I/Q call 
IQRSLT DS 2 

'XEQERR' Reason for 'EXECERRQR' call 
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39 


ABDE0 DS 


2 






40 








41 


; 'SYSUNIT' 


Physical unit of bootload 


42 








43 


ABDE2 DS 


2 




44 


DS 


2 


; 'BUGSTATE' Debugger info 


45 








46 


; 'GDIRP 


' Global directory pointer 


47 








48 


SYCGDP 


DS 


2 


49 


ABDE8 DS 


2 


/ 


50 


SYCBAS 


DS 


2 ; 


51 


SYCMS DS 


2 


/ 


52 


SYCJTB 


DS 


2 ; 


53 


SYCSEG 


DS 


2 ; 


54 


ABDF2 DS 


2 






55 


ABDF4 DS 


2 






56 


DS 


58 






57 


ABE30 DS 


2 






58 


DS 


12 






59 








60 








61 








62 


'ifndef BIG 






63 


SYPTBL 


DS 


192 ; 


64 


else 






65 


SYPTBL 


DS 


384 ; 


66 


endif 






67 


XXX 






68 


DS 


12 




69 


ABF0A DS 


2 




70 


DS 


2 




71 


ABF0E DS 


1 




72 


LFFLAG 


DS 


1 


73 


DS 


1 




74 








75 








76 








77 


'ifdef GRIG 






78 


NBFll 






79 


endif 






80 


ABFll DS 


1 




81 








82 








83 








84 


'ifndef GRIG 




85 


ABF12 DS 


1 




86 


else 






87 


ESCFLG 


DS 


1 


88 


endif 






89 


t 






90 


t 






91 


t 






92 


RANDNG 


DS 


2 


93 


/ 






94 


/ 






95 


t 






96 


ifndef GRIG 




97 


NBF15 DS 


1 




98 


else 
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99 


CNFLGS 


DS 


1 


100 


endif 






101 








102 








103 








104 


BREAK DS 


2 




105 


RPTR DS 


1 




106 


WPTR DS 


1 




107 


ABFIA DS 


2 




108 


SPCHAR 


DS 


1 


109 


IBRK DS 


2 




110 


ISYSC DS 


2 




111 


VER DS 


1 




112 


FLAVOR 


DS 


1 


113 


ABF23 DS 


2 




114 


DS 


2 




115 


t 






116 


; Slot 


types 




117 


t 






118 


SLTYPS 


DS 


8 


119 


/ 






120 


t 






121 


t 






122 


XITLOC 


DS 


2 


123 


ABF31 DS 


2 




124 


ABF33 DS 


2 




125 


DS 


33 




126 


ABF56 DS 


42 




127 


t 






128 


t 






129 


t 






130 


DEND 






57 


/ 






58 


; I/O 


Dage 




59 


/ 






60 
1 
2 


INCLUDE 


MAPIOP.IAS 


t 

; Pointer to I/O page 


3 


/ 






4 


PTRIOP 


EOU 


$C000 


5 


/ 






6 


/ 






7 


/ 






8 


KBD EOU 


$C000 




9 


/ 






10 


; Soft 


switches 


11 


t 






12 


STO80C 


EOU 


$C000 


13 


STO80S 


EOU 


$C001 


14 


RAMRDC 


EOU 


$C002 


15 


RAMRDS 


EOU 


$C003 


16 


RAMWRC 


EOU 


$C004 


17 


RAMWRS 


EOU 


$C005 


18 


ALTZPC 


EOU 


$C008 


19 


ALTZPS 


EOU 


$C009 


20 


ALTCHS 


EOU 


$C00F 


21 








22 








23 








24 


KBSTRB 


EOU 


$C010 



Clea 

Set 

Clea 

Set 

Clea 

Set 

Clea 

Set 

Set 



r 'STORE80' 
'STORE80' 
r 'RAMRD' 
' RAMRD ' 
r 'RAMWRT' 
' RAMWRT ' 
r 'ALTZP' 
'ALTZP' 
'ALTCHAR' 
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25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 



Speaker toggle 

AC030 EQU $C030 

Video modes 

AC050 EQU $C050 

AC051 EQU $C051 

AC052 EQU $C052 

AC054 EQU $C054 

AC057 EQU $C057 



AC060 EQU $C060 

BUTN0 EQU $C061 

BUTNl EQU $C062 

AC063 EQU $C063 



New 

Qpen -Apple key 

Closed-Apple key ('option' key on newer models) 



Language card bank switching control 

*AC081 

RQMIN EQU $C081 

*AC083 

LCBNK2 EQU $C083 

*AC08B 

LCBNKl EQU $C08B 

??? 

AC08A EQU $C08A 

AC08E EQU $C08E 

AC08F EQU $C08F 

Disk I/Q definitions from page A-11 of "Beneath Apple ProDQS" 



DRVSM0 

DRVSMl 

DRVSM2 

DRVSM4 

DRVSM6 

DRVQFF 

DRVQN EQU 

DRVSLl 

DRVSL2 

DRVRD EQU 

DRVWR EQU 

DRVRDM 

DRVWRM 



AC090 EQU 
AC0BE EQU 
AC0BF EQU 



EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

$C089 

EQU 

EQU 

$C08C 

$C08D 

EQU 

EQU 



$C090 
$C0BE 
$C0BF 



$C080 
$C081 
$C082 
$C084 
$C086 
$C088 

$C08A 
$C08B 



$C08E 
$C08F 



ACICI EQU $C1C1 
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85 
86 
87 
88 
61 
62 
63 
64 



AC800 EQU 
AC84D EQU 
AC9AA EQU 
ACFFF EQU 



$C800 
$C84D 
$C9AA 
$CFFF 



AD300 EQU $D300 
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D000 
DO02 
DO04 
DO06 
D0O8 
D0OA 
D0OC 
D00E 
D010 
D012 
D014 
D016 
D018 
D01A 
D01C 
D01E 
D020 
D022 
D024 
D026 
D028 
D02A 
D02C 
D02E 
D030 
D032 
D034 
D036 
D038 
D03A 
D03C 
D03E 
D040 
D042 
D044 
D046 
D048 
D04A 
D04C 
D04E 
D050 
D052 
D054 
D056 
D058 
D05A 
D05C 
D05E 



BBD6 
B2EC 
D9D6 
C2EA 
6BD5 
57DB 
39D8 
5AEB 
7ED8 
3FED 
62ED 
55DC 
20DB 
7ED5 
66D8 
42D7 
55EC 
F1D6 
C0EC 
91D5 
CCDC 
03D7 
09EB 
BADC 
89D7 
7DEC 
7BD4 
48D9 
79DB 
01D4 
30E6 
96D2 
E5DB 
5FD2 
87D9 
6BD9 
9AD9 
43D3 
E5D8 
4BD4 
57D5 
25D3 
07D9 
69D3 
9ED5 
3FE3 
53E2 
E8DD 



65 


.PAGE 




66 






67 






68 






69 


ORG 


$D000 


70 


INCLUDE 


1 


.PAGE 'P- 


code rou1 


2 






3 






4 






5 F 


^CTBL DW 


ABI 


6 


DW 


ABR 


7 


DW 


AD I 


8 


DW 


ADR 


9 


DW 


LAND 


10 


DW 


DIF 


11 


DW 


DVI 


12 


DW 


DVR 


13 


DW 


CHK 


14 


DW 


FLO 


15 


DW 


FLT 


16 


DW 


INN 


17 


DW 


INT 


18 


DW 


LOR 


19 


DW 


MODI 


20 


DW 


MULPLY 


21 


DW 


MPR 


22 


DW 


NGI 


23 


DW 


NGR 


24 


DW 


LNOT 


25 


DW 


SRS 


26 


DW 


SBI 


27 


DW 


SBR 


28 


DW 


SGS 


29 


DW 


SOI 


30 


DW 


SOR 


31 


DW 


STO 


32 


DW 


IXS 


33 


DW 


UNI 


34 


DW 


LDE 


35 


DW 


CSP 


36 


DW 


LDCN 


37 


DW 


ADJ 


38 


DW 


FJP 


39 


DW 


INC 


40 


DW 


IND 


41 


DW 


IXA 


42 


DW 


LAO 


43 


DW 


LSA 


44 


DW 


LAE 


45 


DW 


MOV 


46 


DW 


LDO 


47 


DW 


SAS 


48 


DW 


SRO 


49 


DW 


XJP 


50 


DW 


RNP 


51 


DW 


CIP 


52 


DW 


EQU 



PCINTERP.IAS 



MPI 
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D060 
D062 
D064 
D066 
D068 
D06A 
D06C 
D06E 
D070 
D072 
D074 
D076 
D078 
D07A 
D07C 
D07E 
D080 
D082 
D084 
D086 
D088 
D08A 
D08C 
D08E 
D090 
D092 
D094 
D096 
D098 
D09A 
D09C 
D09E 
D0A0 
D0A2 
D0A4 
D0A6 
D0A8 
D0AA 
D0AC 
D0AE 
D0B0 
D0B2 
D0B4 
D0B6 
D0B8 
D0BA 
D0BC 
D0BE 
D0C0 
D0C2 
D0C4 
D0C6 
D0C8 
D0CA 
D0CC 
D0CE 
D0D0 
D0D2 
D0D4 
D0D6 



E0DD 
D8DD 
ADD3 
95D4 
E4DD 
DCDD 
87D3 
D4DD 
DBD3 
67D2 
ICDA 
72DA 
C8D4 
F6D4 
23D5 
3DD5 
D9D9 
2AE3 
F9E2 
65DF 
37DF 
2FDF 
D4D2 
9DD2 
33DF 
2BDF 
B6D2 
3BDF 
FAD 2 
D4E2 
A1E2 
BDE2 
CDD8 
26D4 
4DD2 
EFDl 
EFDl 
2BE8 
A0D6 
4DD2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
A9D2 
18D3 
18D3 
18D3 
18D3 



53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



DW 


GEQ 


DW 


GRT 


DW 


LDA 


DW 


LDC 


DW 


LEQ 


DW 


LES 


DW 


LCD 


DW 


NEQ 


DW 


STR 


DW 


UJP 


DW 


LDP 


DW 


STR 


DW 


LDM 


DW 


STM 


DW 


LDB 


DW 


STB 


DW 


IXP 


DW 


RBP 


DW 


CBP 


DW 


EQUI 


DW 


GEQI 


DW 


GRTI 


DW 


LLA 


DW 


LDCI 


DW 


LEQI 


DW 


LESI 


DW 


LDL 


DW 


NEQI 


DW 


STL 


DW 


CXP 


DW 


CLP 


DW 


CGP 


DW 


LPA 


DW 


STE 


DW 


UPDBYl ; NOP 


DW 


ERRll ; EFJ 


DW 


ERRll ; NFJ 


DW 


BPT 


DW 


XIT 


DW 


UPDBYl ; NOP 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDL 


DW 


SLDO 


DW 


SLDO 


DW 


SLDO 


DW 


SLDO 
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D0D8 18D3 
D0DA 18D3 
D0DC 18D3 
D0DE 18D3 
D0E0 18D3 
D0E2 18D3 
D0E4 18D3 
D0E6 18D3 
D0E8 18D3 
D0EA 18D3 
D0EC 18D3 
D0EE 18D3 
D0F0 6AD4 
D0F2 67D4 
D0F4 67D4 
D0F6 67D4 
D0F8 67D4 
D0FA 67D4 
D0FC 67D4 
D0FE 67D4 



D10E 3AE6 
D110 40E6 



D112 41E8 
D114 B2E6 
D116 F7E6 
D118 27EF 
DllA 0000 
DllC 0000 
DUE 0000 
D120 0000 
D122 0000 
D124 0000 
D126 0000 
D128 0000 
D12A 1CE6 
D12C 26E6 
D12E D0ED 
D130 BBED 



113 


DW 


SLDO 


114 


DW 


SLDO 


115 


DW 


SLDO 


116 


DW 


SLDO 


117 


DW 


SLDO 


118 


DW 


SLDO 


119 


DW 


SLDO 


120 


DW 


SLDO 


121 


DW 


SLDO 


122 


DW 


SLDO 


123 


DW 


SLDO 


124 


DW 


SLDO 


125 


DW 


SIND0 


126 


DW 


SIND 


127 


DW 


SIND 


128 


DW 


SIND 


129 


DW 


SIND 


130 


DW 


SIND 


131 


DW 


SIND 


132 


DW 


SIND 


133 


.PAGE 'Call systen 


134 






135 






136 






137 ( 


ISPTBL 


DW 


138 


DW 


NEW 


139 


DW 


MOVELR 


140 


DW 


MOVELR 


141 


DW 


EXIT 


142 


DW 


UNITRD 


143 


DW 


UNITWR 


144 


ifndef GRIG 


145 


DW 


ERRll 


146 


DW 


ERRll 


147 


else 




148 


ifndef 


lie 


149 


DW 


CSP7 


150 


DW 


TREES 


151 


else 




152 


DW 


ERRll 


153 


DW 


ERRll 


154 


endif 




155 


endif 




156 


DW 


TIME 


157 


DW 


FILLC 


158 


DW 


SCAN 


159 


DW 


CSP12 


160 


DW 





161 


DW 





162 


DW 





163 


DW 





164 


DW 





165 


DW 





166 


DW 





167 


DW 





168 


DW 


CSP21 


169 


DW 


CSP22 


170 


DW 


TNC 


171 


DW 


RND 



D100 04EF 137 CSPTBL DW CSP0 

D102 2FD6 

D104 A0E8 

D106 A0E8 

D108 84E7 

D10A 69F0 

D10C 6EF0 
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D132 
D134 
D136 
D138 
D13A 
D13C 
D13E 
D140 
D142 
D144 
D146 
D148 
D14A 
D14C 
D14E 
D150 



EFDl 
EFDl 
EFDl 
EFDl 
EFDl 
EFDl 
EFDl 
6BD6 
82D6 
F9EE 
0FEF 
E5ED 
IDEF 
A5EF 
33E8 
04E9 



D152 4C75F2 



172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 



DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 



ERRll 

ERRll 

ERRll 

ERRll 

ERRll 

ERRll 

ERRll 

MRK 

RLS 

PSHIOR 

CSP35 

PWR10 

CSP37 

CSP38 

CSP39 

FRE 



25 
26 
27 
28 
29 
30 
31 



Return number of words of memory available 



Go to 'Move INITialization Code' 



JMOVIC 



JMP 



MINITC 



D155 B158 
D157 1010 



D159 855F 



D15B E658 
D15D D002 
D15F E659 



D161 B158 
D163 0A 
D164 855E 
D166 265F 



192 
193 
194 
195 
196 



197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 



.PAGE 'Extract operand to memory' 



EBIG2M RDAUX 

IFDEF BIG 

STA RAMRDS 
ENDIF 



LDA 
BNM 



STA 



INC 
BNZ 
INC 



INXAS LDA 
ASL 
STA 
ROL 



(IPCPTR),Y 
INXAT 



OPRND+1 



IPCPTR 

INXAS 

IPCPTR+1 



(IPCPTR), Y 

A 

OPRND 

OPRND+1 



+ 
+ 



RDMAIN 
IFDEF BIG 
STA RAMRDC 
ENDIF 



223 
224 
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D168 60 



D169 0A 
D16A 855E 
D16C A900 
D16E 855F 



D170 60 



225 






226 


RTS 




227 






228 






229 






230 ] 


[NXAT ASL 


A 


231 


STA 


OPRND 


232 


LDA 


#0 


233 


STA 


OPRND+1 


234 






235 






236 






237 


RDMAIN 




+ 


IFDEF 


BIG 


+ 


STA 


RAMRDC 


+ 


ENDIF 




238 






239 






240 






241 


RTS 




242 


ifndef GRIG 


243 


.PAGE 'Extract operand 


244 






245 






246 






247 [ 


EBIG2R 


RDAUX 


248 






249 






250 






251 


LDA 


(IPCPTR),Y 


252 


BNM 


INXPC 


253 






254 






255 






256 


TAX 




257 






258 


Increment pointer 


259 






260 


INC 


IPCPTR 


261 


BNZ 


INXPB 


262 


INC 


IPCPTR+1 


263 






264 






265 






266 ] 


[NXPB LDA 


(IPCPTR), Y 


267 


ASL 


A 


268 


TAY 




269 


TXA 




270 


ROL 


A 


271 


TAX 




272 


RDMAIN 




273 






274 






275 






276 


RTS 




277 






278 






279 






280 ] 


[NXPC ASL 


A 
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281 


TAY 






282 


LDX 


#0 




283 


RDMAIN 




284 








285 








286 








287 


RTS 






288 


endif 






289 


.PAGE 'Su 


broutines ' 




290 








291 








292 






D171 A552 


293 ] 


[NXAU LDA 


MSPTR 


D173 8562 


294 


STA 


A62 


D175 A553 


295 


LDA 


MSPTR+1 


D177 8563 


296 
297 
298 
299 


STA 


A62+1 


D179 E000 


300 


CPX 


#0 


D17B F012 


301 
302 
303 
304 


BE 


INXAY 


D17D A000 


305 ] 


[NXAX LDY 


#0 


D17F B162 


306 


LDA 


(A62),Y 


D181 8574 


307 


STA 


A74 


D183 C8 


308 


INY 




D184 B162 


309 


LDA 


(A62),Y 


D186 8563 


310 


STA 


A62+1 


D188 A574 


311 


LDA 


A74 


D18A 8562 


312 
313 
314 
315 


STA 


A62 


D18C CA 


316 


DEX 




D18D D0EE 


317 
318 
319 
320 


BNZ 


I NXAX 


D18F 60 


321 ] 


[NXAY RTS 






322 


.PAGE 






323 








324 








325 






D190 ADE6BD 


326 ] 


[NXAZ LDA 


SYCGDP 


D193 D006 


327 


BNZ 


INXBB 


D195 AEE7BD 


328 


LDX 


SYCGDP+1 


D198 D001 


329 
330 
331 
332 


BNZ 


INXBB 


D19A 60 


333 
334 
335 
336 


RTS 




D19B 855A 


337 ] 


[NXBB STA 


HPPTR 


D19D ADE7BD 


338 


LDA 


SYCGDP+1 
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D1A0 


855B 


339 
340 
341 
342 




STA 


HPPTR+1 


D1A2 


A900 


343 




LDA 


#0 


D1A4 


8DE6BD 


344 




STA 


SYCGDP 


D1A7 


A900 


345 




LDA 


#0 


D1A9 


8DE7BD 


346 
347 
348 
349 




STA 


SYCGDP+1 


DIAC 


60 


350 
351 
352 
353 




RTS 




DIAD 


AFDl 


354 


INXBC DW 


ADIAF 


DIAF 


FBDl 


355 


ADIAF DW 


INXBK 


DlBl 


00FF 


356 




DW 


JCREAD 


D1B3 


DEBD 


357 




DW 


lORSLT 


D1B5 


7400 


358 




DW 


A74 






359 


; .PAGE 








360 












361 












362 








D1B7 


A901 


363 


ERRl 


LDA 


#1 


D1B9 


1040 


364 
365 
366 
367 




BNM 


INXBK 


DIBB 


A902 


368 




LDA 


#2 


DIBD 


103C 


369 
370 
371 
372 




BNM 


INXBK 


DIBF 


A903 


373 


ERR3 


LDA 


#3 


DlCl 


1038 


374 
375 
376 
377 




BNM 


INXBK 


D1C3 


A900 


378 


OOMERR 


LDA #0 


D1C5 


8DE6BD 


379 




STA 


SYCGDP 


D1C8 


8DE7BD 


380 




STA 


SYCGDP+1 


DICB 


855A 


381 




STA 


HPPTR 


DICD 


855C 


382 




STA 


PSKPTR 


DICF 


A980 


383 




LDA 


#<A8000 


DlDl 


855D 


384 




STA 


PSKPTR+1 


D1D3 


A962 


385 




LDA 


#<A6200 


D1D5 


855B 


386 




STA 


HPPTR+1 


D1D7 


A904 


387 
388 


t 


LDA 


#4 






389 


t 


Unconditional branch 






390 


t 






D1D9 


1020 


391 
392 
393 
394 


t 
t 
t 


BNM 


INXBK 


DIDB 


A905 


395 
396 


t 


LDA 


#5 






397 


t 


Unconditional branch 
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398 


/ 






DIDD 


101C 


399 
400 
401 
402 


t 


BNM INXBK 




DIDF 


A906 


403 
404 


ERR6 

t 


LDA #6 








405 


t 


Unconditional 


branch 






406 


t 






DlEl 


1018 


407 
408 
409 
410 


t 
t 
t 


BNM INXBK 




D1E3 


A908 


411 
412 


ERR8 

t 


LDA #8 








413 


t 


Unconditional 


branch 






414 


/ 






D1E5 


1014 


415 
416 
417 
418 


t 
t 
t 


BNM INXBK 




D1E7 


A909 


419 
420 


ERR9 


LDA #9 








421 


/ 


Unconditional 


branch 






422 


t 






D1E9 


1010 


423 
424 
425 
426 


t 
/ 
t 


BNM INXBK 




DIEB 


A90A 


427 
428 


ERR10 


LDA #10 








429 


t 


Unconditional 


branch 






430 


t 






DIED 


100C 


431 




BNM INXBK 








432 


ifdef BIG 








433 












434 












435 












436 


ND219 


LDA #<A8000 








437 




STA BZ60+1 








438 




LDA #<A6200 








439 




STA BZ62+1 








440 


/ 










441 


/ 










442 


t 










443 




LDA #16 








444 


t 










445 


t 


Unconditional 


branch 






446 


t 










447 




BNM INXBK 








448 


endi 


f 








449 


/ 










450 


/ 










451 


t 






DIEF 


A90B 


452 
453 


ERRll 


LDA #11 








454 


/ 


Unconditional 


branch 






455 


/ 






DlFl 


1008 


456 
457 


t 


BNM INXBK 
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D1F3 A90C 



D1F5 1004 



D1F7 A90D 



D1F9 1000 



458 


/ 






459 


/ 






460 


ERR12 


LDA 


#12 


461 


/ 






462 


t 


Unconditional branch 


463 


t 






464 




BNM 


INXBK 


465 


t 






466 


t 






467 


t 






468 


ERR13 


LDA 


#13 


469 


/ 






470 


/ 


Unconditional branch 


471 


/ 






472 




BNM 


INXBK 


473 


/ 






474 


/ 






475 


t 






476 


INXBK 






477 


ifnd 


ef GRIG 


478 


ifd 


ef FOUR 


479 




STA 


ABDEO 


480 




LDA 


#0 


481 




STA 


ABDEO+1 


482 


t 






483 


t 






484 


t 






485 




STA 


RAMRDS 


486 


t 






487 


t 






488 


t 






489 




CLB 




490 




LDA 


JTBPTR 


491 




SBB 


#2 


492 




STA 


A90 


493 




LDA 


JTBPTR+1 


494 




SBB 


#0 


495 




STA 


A90+1 


496 


t 






497 


t 






498 


t 






499 




JSR 


SETA7C 


500 


t 






501 


t 






502 


t 






503 




CLB 




504 




LDA 


IPCPTR 


505 




SBB 


A7C 


506 




STA 


ABDF4 


507 




LDA 


IPCPTR+1 


508 




SBB 


A7C+1 


509 




STA 


ABDF4+1 


510 








511 








512 








513 




LDY 


#0 


514 




LDA 


(JTBPTR), Y 


515 




STA 


SYCJTB 


516 




LDA 


(SEGPTR),Y 


517 




STA 


SYCSEG 
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518 


STY 


SYCJTB+1 


519 


STY 


SYCSEG+1 


520 






521 






522 






523 


STA 


RAMRDC 


524 






525 






526 






527 


LDA 


#0 


528 


STA 


SEGNO 


529 






530 






531 






532 


LDA 


#2 


533 


STA 


PROCNG 


534 






535 






536 






537 


JMP 


INUCE 


538 






539 






540 






541 


else 




542 


CMP 


#10 


543 


BE 


INXPD 


544 


CLC 




545 


ADC 


#>100 


546 


STA 


lORSLT 


547 


LDA 


#<100 


548 


STA 


IORSLT+1 


549 ] 


[NXPD LDX 


#2 


550 


LDA 


SUCTBL.X 


551 


BNZ 


INXPE 


552 


LDA 


SUCTBL+1,X 


553 


BNZ 


INXPE 


554 


PHA 




555 


LDA 


lORSLT 


556 


PHA 




557 


LDA 


#0 


558 


BZ 


INXPH 


559 ] 


[NXPE LDA 


#$01 


560 


LDY 


#0 


561 


RDAUX 




562 


CMP 


(SEGPTR),Y 


563 


RDMAI^ 


1 


564 


BE 


INXPG 


565 


JSR 


LODSEG 


566 ] 


[NXPG LDA 


#1 


567 ] 


[NXPH STA 


SEGNO 


568 






569 






570 






571 


LDA 


#2 


572 


STA 


PROCNO 


573 






574 






575 






576 


JSR 


CALLX 


577 
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578 










579 










580 


LDY 


#0 






581 


LDA 


BASPTR 






582 


STA 


(MSPTR),Y 






583 


INY 








584 


LDA 


BASPTR+1 






585 


STA 


(MSPTR),Y 






586 










587 










588 










589 


LDY 


#4 






590 


LDA 


(MSPTR),Y 






591 


STA 


A76 






592 


INY 








593 


LDA 


(MSPTR),Y 






594 


STA 


A76+1 






595 










596 










597 










598 


LDA 


A76 






599 


CLB 








600 


SBB 


#4 






601 


STA 


A76 






602 


BNB 


INXPI 






603 


DEC 


A76+1 






604 










605 










606 










607 ] 


[NXPI LDY 


#0 






608 


LDA 


A76 






609 


CLB 








610 


SBB 


(A76),Y 






611 


LDY 


#8 






612 


STA 


(MSPTR),Y 






613 


LDY 


#1 






614 


LDA 


A76+1 






615 


SBB 


(A76),Y 






616 


LDY 


#9 






617 


STA 


(MSPTR),Y 






618 










619 










620 










621 


endif 








622 


endif 








623 


ifdef GRIG 








624 


ifndef lie 


DIFB 


8DE0BD 


625 


STA 


ABDE0 


DIFE 


A900 


626 


LDA 


#0 


D200 


8DE1BD 


627 
628 
629 
630 


STA 


ABDE0+1 


D203 


A558 


631 


LDA 


IPCPTR 


D205 


8DF4BD 


632 


STA 


ABDF4 


D208 


A559 


633 


LDA 


IPCPTR+1 


D20A 


8DF5BD 


634 
635 
636 
637 


STA 


ABDF4+1 
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D20D 


A55C 


638 


LDA 


PSKPTR 


D20F 


38 


639 


CLB 




D210 


E90E 


640 


SBB 


#14 


D212 


8DE8BD 


641 


STA 


ABDE8 


D215 


A55D 


642 


LDA 


PSKPTR+1 


D217 


E900 


643 


SBB 


#0 


D219 


8DE9BD 


644 
645 
646 
647 


STA 


ABDE8+1 


D21C 


AD2CD2 


648 


LDA 


INXBW 


D21F 


8558 


649 


STA 


IPCPTR 


D221 


AD2DD2 


650 


LDA 


INXBW+1 


D224 


8559 


651 
652 


STA 
else 


IPCPTR+1 






653 


CMP 


#10 






654 


BE 


INXPD 






655 


CLC 








656 


ADC 


#>100 






657 


STA 


lORSLT 






658 


LDA 


#<100 






659 


STA 


IORSLT+1 






660 ] 


[NXPD LDX 


#2 






661 


LDA 


SUCTBL.X 






662 


BNZ 


INXPE 






663 


LDA 


SUCTBL+1,X 






664 


BNZ 


INXPE 






665 


PHA 








666 


LDA 


lORSLT 






667 


PHA 








668 


LDA 


#0 






669 


BZ 


INXPH 






670 ] 


[NXPE LDA 


#$01 






671 


LDY 


#0 






672 


RDAUX 








673 


CMP 


(SEGPTR),Y 






674 


RDMAIh 


1 






675 


BE 


INXPG 






676 


JSR 


LODSEG 






677 ] 


[NXPG LDA 


#1 






678 ] 


[NXPH STA 


SEGNO 






679 










680 










681 










682 


LDA 


#2 






683 


STA 


PROCNO 






684 










685 










686 










687 


JSR 


CALLX 






688 










689 










690 










691 


LDY 


#0 






692 


LDA 


BASPTR 






693 


STA 


(MSPTR),Y 






694 


INY 








695 


LDA 


BASPTR+1 






696 


STA 


(MSPTR),Y 






697 
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698 










699 










700 


LDY 


#4 






701 


LDA 


(MSPTR),Y 






702 


STA 


A76 






703 


INY 








704 


LDA 


(MSPTR),Y 






705 


STA 


A76+1 






706 










707 










708 










709 


LDA 


A76 






710 


CLB 








711 


SBB 


#4 






712 


STA 


A76 






713 


BNB 


INXPI 






714 


DEC 


A76+1 






715 










716 










717 










718 ] 


[NXPI LDY 


#0 






719 


LDA 


A76 






720 


CLB 








721 


SBB 


(A76),Y 






722 


LDY 


#8 






723 


STA 


(MSPTR),Y 






724 


LDY 


#1 






725 


LDA 


A76+1 






726 


SBB 


(A76),Y 






727 


LDY 


#9 






728 


STA 


(MSPTR),Y 






729 










730 










731 










732 


endif 








733 


endif 








734 


ifndef FOUR 






735 










736 










737 






D226 


4C53D2 


738 
739 
740 


JMP 
endif 
ifdef ORIG 


EXECPC 






741 


ifndef II 


; 






742 










743 










744 






D229 


CD0002 


745 / 


\D229 CMP 


A0200 


D22C 


29D2 


746 ] 

747 

748 

749 
750 
751 
752 


[NXBW DW 
endif 
endif 

.PAGE '??? 


AD229 


D22E 


A558 


753 I 


JPDBY3 


LDA IPC 


D230 


18 


754 


CLC 




D231 


6903 


755 


ADC 


#3 


D233 


8558 


756 


STA 


IPCPTR 
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D235 901C 
D237 E659 
D239 B018 



757 
758 
759 
760 



BNC 
INC 
BC 



EXECPC 

IPCPTR+1 

EXECPC 



761 
762 
763 
D23B A558 764 UPDBY2 LDA IPCPTR 



D23D 18 


765 


CLC 


D23E 6902 


766 


ADC #2 


D240 8558 


767 


STA IPCPTR 


D242 900F 


768 


BNC EXECPC 


D244 E659 


769 


INC IPCPTR+1 


D246 B00B 


770 
771 


BC EXECPC 


*S|(S|(S|(S|(S|<!|(S|<S|<S|(S|(S|(S|(S|(S|(!|<S|<!|<!|<!|(!|<!|<!|(S|(S|<S|(S|(S|(S|(S|<S|(!|(S|<S|(S|(S|(S|(S|<!|(S|<S|(S|(S|(;|(;K********** 




772 






773 


Push literal (0..127) onto evaluation stack 




774 




D248 AA 


775 F 


^SHLIT TAX 


D249 98 


776 


TYA 


D24A 48 


111 


PHA 


D24B 8A 


IIQ 


TXA 


D24C 48 


119 


PHA 




780 


ifndef GRIG 




781 






782 






783 






784 ] 


[NXPJ INC IPCPTR 




785 


BNZ INXPK 




786 


INC IPCPTR+1 




787 ] 


[NXPK LDA (IPCPTR), Y 




788 


BNM PSHLIT 




789 


ASL A 




790 


STA INXPL+1 




791 


RDMAIN 




792 ] 


[NXPL JMP (PCTBL) 




793 


endif 




794 




*!|<!|C!|<!|<>|<!|C!|C>|<>|<!|CS|C>|<>|<!|CS|<S|<!(!!(C!|<!(!S(!S|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|C 




795 






796 


Increment P-code pointer 




797 




D24D E658 


798 I 


JPDBYl INC IPCPTR 


D24F D002 


799 


BNZ EXECPC 


D251 E659 


800 


INC IPCPTR+1 



801 

802 ; 

803 ; Execute next op code 

804 ; 

805 EXECPC RDAUX 
+ IFDEF BIG 

+ STA RAMRDS 

+ ENDIF 

D253 A000 806 LDY #0 

D255 B158 807 LDA (IPCPTR), Y 

D257 10EF 808 BNM PSHLIT 

D259 0A 809 ASL A 
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D25A 856F 
D25C 4C6E00 



810 ifndef ORIG 

811 STA INXPM+1 

812 RDMAIN 

813 INXPM JMP (PCTBL) 

814 else 
STA JMPPC+1 
JMP JMPPC 

endif 



815 
816 
817 
818 






Jump if TOS is FALSE 



D25F 68 

D260 AA 

D261 68 

D262 8A 

D263 2901 



819 
820 
821 

822 FJP PLA 

823 ifdef ORIG 

824 TAX 

825 PLA 

826 TXA 

827 endif 

828 AND #$01 

829 ifndef ORIG 

830 BZ INXPN 

831 PLA 

832 JMP UPDBY2 

833 else 

D265 D0D4 834 BNZ UPDBY2 

835 endif 
836 

837 
838 
839 

840 ifndef ORIG 

841 INXPN PLA 

842 endif 



Unconditional jump 



D267 18 


843 UJP CLC 






844 


RDAUX 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDS 




+ 


ENDIF 




D268 A001 


845 


LDY 


#1 


D26A B158 


846 


LDA 


(IPCPTR),Y 




847 


RDMAIN 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDC 




+ 


ENDIF 




D26C 300B 


848 


BM 


INXEX 


D26E 6558 


849 


ADC 


IPCPTR 


D270 8558 


850 


STA 


IPCPTR 


D272 90C7 


851 


BNC 


UPDBY2 


D274 E659 


852 
853 
854 
855 


INC 


IPCPTR+1 


D276 4C3BD2 


856 
857 
858 
859 


JMP 


UPDBY2 


D279 6554 


860 ] 


[NXEX ADC 


JTBPTR 


D27B 8574 


861 


STA 


A74 
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D27D 


A9FF 


862 




LDA 


#$FF 


D27F 


6555 


863 




ADC 


JTBPTR+1 


D281 


8575 


864 
865 
866 
867 




STA 


A74+1 


D283 


A574 


868 




LDA 


A74 


D285 


38 


869 




CLB 




D286 


AOOO 


870 
871 




LDY 
RDAUX 


#0 






+ 




IFDEF 


BIG 






+ 




STA 


RAMRDS 






+ 




ENDIF 




D288 


F174 


872 




SBB 


(A74),Y 


D28A 


8558 


873 




STA 


IPCPTR 


D28C 


A575 


874 




LDA 


A74+1 


D28E 


C8 


875 




INY 




D28F 


F174 


876 




SBB 


(A74),Y 


D291 


8559 


877 
878 
879 
880 




STA 


IPCPTR+1 


D293 


4C53D2 


881 
882 




JMP 


EXECPC 


*>|CS|CS|C>|C>|CS|CS|C>|C>|CS|C!|C>|<>|<S|(S|(!|<S|(S|(S|(S|(S|<S|(S|(!|<S|(S|(!|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(!|<S|(S|(!|(S|<S|<S|CS|C>|C>|C>|CS^>|C>^ 






883 












884 




Load constant NIL 






885 








D296 


A900 


886 


LDCN 


LDA 


#0 


D298 


48 


887 




PHA 




D299 


48 


888 
889 
890 
891 




PHA 




D29A 


4C4DD2 


892 
893 




JMP 


UPDBYl 


*S|(S|(S|(S|(S|<S|(!|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(* 






894 












895 




Load word literal 






896 








D29D 


A0O2 


897 
898 


LDCI 


LDY 
RDAUX 


#2 






+ 




IFDEF 


BIG 






+ 




STA 


RAMRDS 






+ 




ENDIF 




D29F 


B158 


899 




LDA 


(IPCPTR), Y 


D2A1 


48 


900 




PHA 




D2A2 


88 


901 




DEY 




D2A3 


B158 


902 




LDA 


(IPCPTR), Y 


D2A5 


48 


903 




PHA 




D2A6 


4C2ED2 


904 
905 




JMP 


UPDBY3 


*S(C!|C!|CS(C!(C!|C!(!!(C!(C!|C!|C!(CS(C!|C!|C!(CS(CS|CS|CS(CS(CS|CS|CS(CS(CS|CS|CS(CS(CS|CS|CS(CS(CS|CS|CS(CS(CS|C!|CS(CS(CS|C!|CS(CS(CS|CS|CS|CS(CS|CS|C 






906 












907 




Load s 


hort local word 






908 








D2A9 


E9A3 


909 


SLDL 


SBB 


#$A3 



D2AB A8 910 TAY 

D2AC B152 911 LDA (MSPTR),Y 

D2AE 48 912 PHA 
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D2AF 88 


913 




DEY 




D2B0 B152 


914 




LDA 


(MSPTR),Y 


D2B2 48 


915 
916 
917 
918 




PHA 




D2B3 4C4DD2 


919 
920 




JMP 


UPDBYl 


*>|<!|C!|C>|<>|<!|C!|C!|<!|<!|C!|C!|<>|<!|C!|CS(!!(C!|C!|CS(CS(C!|C!|CS(CS(CS|CS|CS(CS(CS|CS|CS(CS(CS|CS|CS(CS(CS|C!|CS(CS(!S|C!|C>|<>|<!|C!|C>|<>|<S|CS|C 




921 










922 




Load 


local word 




923 








D2B6 A001 


924 


LDL 


LDY 


#1 




925 


ifnd 


ef GRIG 




926 




JSR 


EBIG2R 




927 










928 










929 










930 




CLC 






931 




TYA 






932 




ADC 


MSPTR 




933 




STA 


VARPTR 




934 




TXA 






935 




ADC 


MSPTR+1 




936 


else 






D2B8 2055D1 


937 
938 
939 
940 




JSR 


EBIG2M 


D2BB A552 


941 




LDA 


MSPTR 


D2BD 18 


942 




CLC 




D2BE 655E 


943 




ADC 


GPRND 


D2C0 8564 


944 




STA 


VARPTR 


D2C2 A553 


945 




LDA 


MSPTR+1 


D2C4 655F 


946 




ADC 


GPRND+1 




947 


endi 


f 




D2C6 8565 


948 
949 
950 

951 




STA 


VARPTR+1 


D2C8 A00B 


952 




LDY 


#11 


D2CA B164 


953 




LDA 


( VARPTR ),Y 


D2CC 48 


954 




PHA 




D2CD 88 


955 




DEY 




D2CE B164 


956 




LDA 


( VARPTR ),Y 


D2D0 48 


957 
958 
959 
960 




PHA 




D2D1 4C3BD2 


961 
962 




JMP 


UPDBY2 


*S|(S|(S|(S|(S|<S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|<S|<!|(S|(S|<S|<!|(!|<S|<!|<!|<!|<!|<!|<!|(!|<!|<!|<!|<!|(!|<!|<!|(!|<S|<S|<!|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(* 




963 










964 




Load 


local address 




965 








D2D4 A001 


966 


LLA 


LDY 


#1 




967 


ifnd 


ef GRIG 




968 




JSR 


EBIG2R 




969 


t 








970 


t 
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971 










972 


CLC 








973 


TYA 








974 


ADC 


MSPTR 






975 


TAY 








976 


TXA 








977 


ADC 


MSPTR+1 






978 


TAX 








979 


CLC 








980 


TYA 








981 


ADC 


#10 






982 


TAY 








983 


BNC 


INXEY 






984 


INX 








985 










986 










987 










988 ] 


[NXEY TXA 








989 


PHA 








990 


TYA 








991 


PHA 








992 


else 




D2D6 


2055D1 


993 
994 
995 
996 


JSR 


EBIG2M 


D2D9 


A552 


997 


LDA 


MSPTR 


D2DB 


18 


998 


CLC 




D2DC 


655E 


999 


ADC 


OPRND 


D2DE 


8564 


1000 


STA 


VARPTR 


D2E0 


A553 


1001 


LDA 


MSPTR+1 


D2E2 


655F 


1002 


ADC 


OPRND+1 


D2E4 


8565 


1003 
1004 
1005 
1006 


STA 


VARPTR+1 


D2E6 


A564 


1007 


LDA 


VARPTR 


D2E8 


18 


1008 


CLC 




D2E9 


690A 


1009 


ADC 


#10 


D2EB 


8564 


1010 


STA 


VARPTR 


D2ED 


9002 


1011 


BNC 


INXEY 


D2EF 


E665 


1012 
1013 
1014 
1015 


INC 


VARPTR+1 


D2F1 


A565 


1016 ] 


[NXEY LDA 


VARPTR+1 


D2F3 


48 


1017 


PHA 




D2F4 


A564 


1018 


LDA 


VARPTR 


D2F6 


48 


1019 
1020 
1021 
1022 
1023 


PHA 
endif 




D2F7 


4C3BD2 


1024 
1025 


JMP 


UPDBY2 


*!(C!(C!(C!(CS(C!(C!(CS(CS(C!(CS|CS(CS(C!|C!(!S(C!(C!(C!(C!(C^ 


K!(C!(!!(C!(C!(CS(C!(CS(C!|CS|C 


S(CS(C!|C!|CS(CS(C!(C!|<!K!K!(. 






1026 










1027 


Store 


local word 






1028 






D2FA 


A001 


1029 5 


3TL LDY 


#1 



Apple ][ Pascal Technical Information 



Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 32 of 292 



Apple ][ Pascal Technical Information 



D2FC 2055D1 



D2FF A552 
D301 18 
D302 655E 
D304 8564 
D306 A553 
D308 655F 
D30A 8565 



D30C A00A 

D30E 68 

D30F 9164 

D311 C8 

D312 68 

D313 9164 



D315 4C3BD2 



1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 



ifndef GRIG 

JSR EBIG2R 



else 



CLC 
TYA 
ADC 
STA 
TXA 
ADC 
STA 

JSR 



MSPTR 
VARPTR 

MSPTR+1 
VARPTR+1 

EBIG2M 



LDA 


MSPTR 




CLC 






ADC 


OPRND 




STA 


VARPTR 




LDA 


MSPTR+1 




ADC 


OPRND+1 




STA 


VARPTR+1 




endif 






LDY 


#10 




PLA 






STA 


(VARPTR) 


Y 


INY 






PLA 






STA 


(VARPTR) 


Y 



JMP 



UPDBY2 



1066 ; 

1067 ; Load short global word 

1068 ; 

1069 SLDO SBB 

1070 TAY 

1071 LDA 

1072 PHA 

1073 DEY 

1074 LDA 

1075 PHA 
1076 
1077 
1078 

1079 JMP 
1080 

1081 ; 

1082 ; Load global word 

1083 ; 

D325 A001 1084 LDO LDY #1 

1085 ifndef GRIG 

1086 JSR EBIG2R 

1087 ; 



D318 E9C3 
D31A A8 
D31B B150 
D31D 48 
D31E 88 
D31F B150 
D321 48 



D322 4C4DD2 



#$C3 
(BASPTR),Y 

(BASPTR),Y 



UPDBYl 
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D327 2055D1 



D32A 
D32C 
D32D 
D32F 
D331 
D333 
D335 



A550 

18 

655E 

8564 

A551 

655F 

8565 



D337 A00B 
D339 B164 
D33B 48 
D33C 88 
D33D B164 
D33F 48 



D340 4C3BD2 



1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 



CLC 






TYA 






ADC 


BASPTR 




STA 


VARPTR 




TXA 






ADC 


BASPTR+1 




STA 


VARPTR+1 




else 






JSR 


EBIG2M 




LDA 


BASPTR 




CLC 






ADC 


OPRND 




STA 


VARPTR 




LDA 


BASPTR+1 




ADC 


OPRND+1 




STA 


VARPTR+1 




endif 






LDY 


#11 




LDA 


(VARPTR) 


Y 


PHA 






DEY 






LDA 


(VARPTR) , 


Y 


PHA 







JMP 



UPDBY2 






D343 A001 



1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 



Load global address 

LAO LDY #1 
ifndef GRIG 

JSR EBIG2R 



CLC 
TYA 
ADC 
TAY 
TXA 
ADC 
TAX 
CLC 
TYA 
ADC 
TAY 
BNC 
INX 



BASPTR 
BASPTR+1 

#10 
INXEZ 
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D345 2055D1 



D348 
D34A 
D34B 
D34D 
D34F 
D351 
D353 



A550 

18 

655E 

8564 

A551 

655F 

8565 



D355 A564 
D357 18 
D358 690A 
D35A 8564 
D35C 9002 
D35E E665 



D360 A565 
D362 48 
D363 A564 
D365 48 



D366 4C3BD2 






D369 A001 



D36B 2055D1 



1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 

1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 



INXEZ TXA 

PHA 

TYA 

PHA 

else 

JSR 



LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 



LDA 
CLC 
ADC 
STA 
BNC 
INC 



INXEZ LDA 

PHA 

LDA 

PHA 

endif 



JMP 



EBIG2M 



BASPTR 

OPRND 

VARPTR 

BASPTR+1 

OPRND+1 

VARPTR+1 



VARPTR 

#10 

VARPTR 
INXEZ 
VARPTR+1 



VARPTR+1 
VARPTR 



UPDBY2 






Store global word 

SRC LDY #1 
ifndef GRIG 

JSR EBIG2R 



CLC 
TYA 
ADC 
STA 
TXA 
ADC 
STA 



else 



JSR 



BASPTR 
VARPTR 

BASPTR+1 
VARPTR+1 

EBIG2M 
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1206 










1207 






D36E 


A550 


1208 


LDA 


BASPTR 


D370 


18 


1209 


CLC 




D371 


655E 


1210 


ADC 


OPRND 


D373 


8564 


1211 


STA 


VARPTR 


D375 


A551 


1212 


LDA 


BASPTR+1 


D377 


655F 


1213 


ADC 


OPRND+1 


D379 


8565 


1214 
1215 
1216 
1217 
1218 


STA 

endif 


VARPTR+1 


D37B 


A00A 


1219 


LDY 


#10 


D37D 


68 


1220 


PLA 




D37E 


9164 


1221 


STA 


( VARPTR ),Y 


D380 


C8 


1222 


INY 




D381 


68 


1223 


PLA 




D382 


9164 


1224 
1225 
1226 
1227 


STA 


( VARPTR ),Y 


D384 


4C3BD2 


1228 
1229 


JMP 


UPDBY2 


*>|cs|cs|c> 


|c >|< s|c s|c >|c >|c >|c !|c >t; 


>|c sK sK sK sK sK sK S|(> 


|(S|(S|(!|<S|(S|(!|(S|<S|(S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(!|<S|(S|(!| 






1230 










1231 


Load intermediate 






1232 










1233 I 


.CD RDAUX 








+ 


IFDEF 


BIG 






+ 


STA 


RAMRDS 






+ 


ENDIF 




D387 


A001 


1234 


LDY 


#1 


D389 


B158 


1235 
1236 


LDA 

RDMAIN 


(IPCPTR),Y 






+ 


IFDEF 


BIG 






+ 


STA 


RAMRDC 






+ 


ENDIF 




D38B 


AA 


1237 


TAX 




D38C 


2071D1 


1238 
1239 
1240 
1241 


JSR 


INXAU 


D38F 


A002 


1242 


LDY 


#2 


D391 


2055D1 


1243 
1244 
1245 
1246 


JSR 


EBIG2M 


D394 


A55E 


1247 


LDA 


OPRND 


D396 


18 


1248 


CLC 




D397 


6562 


1249 


ADC 


A62 


D399 


8564 


1250 


STA 


VARPTR 


D39B 


A55F 


1251 


LDA 


OPRND+1 


D39D 


6563 


1252 


ADC 


A62+1 


D39F 


8565 


1253 
1254 
1255 
1256 


STA 


VARPTR+1 


D3A1 


A00B 


1257 


LDY 


#11 


D3A3 


B164 


1258 


LDA 


( VARPTR ),Y 
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D3A5 


48 


1259 


PHA 




D3A6 


88 


1260 


DEY 




D3A7 


B164 


1261 


LDA 


(VARPTR),Y 


D3A9 


48 


1262 
1263 
1264 
1265 


PHA 




D3AA 


4C2ED2 


1266 
1267 


JMP 


UPDBY3 


*S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|<S|(!|(S|<!|<!|<!|(!|<S|<S|(S|(S|(S|(S|(S|(S|(S|(S|(!|(S|<S|(S|(S|(S|(S|<S|(S|(S|(S|(S|(S| 






1268 










1269 


Load i 


ntermediate 






1270 










1271 LDA RDAUX 








+ 


IFDEF 


BIG 






+ 


STA 


RAMRDS 






+ 


ENDIF 




D3AD 


A001 


1272 


LDY 


#1 


D3AF 


B158 


1273 
1274 


LDA 

RDMAIIN 


(IPCPTR),Y 






+ 


IFDEF 


BIG 






+ 


STA 


RAMRDC 






+ 


ENDIF 




D3B1 


AA 


1275 


TAX 




D3B2 


2071D1 


1276 
1277 
1278 
1279 


JSR 


INXAU 


D3B5 


A002 


1280 


LDY 


#2 


D3B7 


2055D1 


1281 
1282 
1283 
1284 


JSR 


EBIG2M 


D3BA 


A55E 


1285 


LDA 


OPRND 


D3BC 


18 


1286 


CLC 




D3BD 


6562 


1287 


ADC 


A62 


D3BF 


8564 


1288 


STA 


VARPTR 


D3C1 


A55F 


1289 


LDA 


OPRND+1 


D3C3 


6563 


1290 


ADC 


A62+1 


D3C5 


8565 


1291 
1292 
1293 
1294 


STA 


VARPTR+1 


D3C7 


A564 


1295 


LDA 


VARPTR 


D3C9 


18 


1296 


CLC 




D3CA 


690A 


1297 


ADC 


#10 


D3CC 


8564 


1298 


STA 


VARPTR 


D3CE 


9002 


1299 


BNC 


INXFA 


D3D0 


E665 


1300 
1301 
1302 
1303 


INC 


VARPTR+1 


D3D2 


A565 


1304 ] 


[NXFA LDA 


VARPTR+1 


D3D4 


48 


1305 


PHA 




D3D5 


A564 


1306 


LDA 


VARPTR 


D3D7 


48 


1307 
1308 
1309 
1310 


PHA 




D3D8 


4C2ED2 


1311 


JMP 


UPDBY3 
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1312 








*************!|<!|<!|C!(C!(C!(C!|C!(C!(C!|C!|C!(CS(CS|C!|CS(CS(C!|C!|CS(CS(CS|CS|CS(CS(C!|C!|C!(C!(C!|C!|CS(CS(C!|C!|C!(C!(!!(!*!|<!|<**^ 




1313 










1314 




Store 


intermediate word 




1315 










1316 


STR 


RDAUX 






+ 




IFDEF 


BIG 




+ 




STA 


RAMRDS 




+ 




ENDIF 




D3DB A0O1 


1317 




LDY 


#1 


D3DD B158 


1318 
1319 




LDA 
RDMAIN 


(IPCPTR),Y 




+ 




IFDEF 


BIG 




+ 




STA 


RAMRDC 




+ 




ENDIF 




D3DF AA 


1320 




TAX 




D3E0 2071D1 


1321 
1322 
1323 
1324 




JSR 


INXAU 


D3E3 A002 


1325 




LDY 


#2 


D3E5 2055D1 


1326 
1327 
1328 
1329 




JSR 


EBIG2M 


D3E8 A55E 


1330 




LDA 


OPRND 


D3EA 18 


1331 




CLC 




D3EB 6562 


1332 




ADC 


A62 


D3ED 8564 


1333 




STA 


VARPTR 


D3EF A55F 


1334 




LDA 


OPRND+1 


D3F1 6563 


1335 




ADC 


A62+1 


D3F3 8565 


1336 
1337 
1338 
1339 




STA 


VARPTR+1 


D3F5 A00A 


1340 




LDY 


#10 


D3F7 68 


1341 




PLA 




D3F8 9164 


1342 




STA 


( VARPTR ),Y 


D3FA C8 


1343 




INY 




D3FB 68 


1344 




PLA 




D3FC 9164 


1345 
1346 
1347 
1348 




STA 


( VARPTR ),Y 


D3FE 4C2ED2 


1349 
1350 




JMP 


UPDBY3 


*!|<S|(!|(!|<!|<S|(S|(!|<S|(S|(!|(!|<S|<S|(S|(!|<!|(S|(!|(!|<!|<S|<S|<!|<!|<!|<!|<!|<S|<!|(S|(S|<S|(S|(S|(S|(S|<S|(!|<!|<!|<!|<******>|<******** 




1351 










1352 




Load extended word 




1353 










1354 


LDE 


RDAUX 






+ 




IFDEF 


BIG 




+ 




STA 


RAMRDS 




+ 




ENDIF 




D401 A001 


1355 




LDY 


#1 


D403 B158 


1356 
1357 




LDA 
RDMAIN 


(IPCPTR),Y 




+ 




IFDEF 


BIG 




+ 




STA 


RAMRDC 




+ 




ENDIF 
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D405 


0A 


1358 


ASL 


A 


D406 


AA 


1359 


TAX 




D407 


C8 


1360 


INY 




D408 


2055D1 


1361 
1362 
1363 
1364 


JSR 


EBIG2M 


D40B 


BD9EBD 


1365 


LDA 


lUTBL.X 


D40E 


18 


1366 


CLC 




D40F 


655E 


1367 


ADC 


OPRND 


D411 


8574 


1368 


STA 


A74 


D413 


BD9FBD 


1369 


LDA 


IUTBL+1,X 


D416 


655F 


1370 


ADC 


OPRND+1 


D418 


8575 


1371 
1372 
1373 
1374 


STA 


A74+1 


D41A 


A001 


1375 


LDY 


#1 


D41C 


B174 


1376 


LDA 


(A74),Y 


D41E 


48 


1377 


PHA 




D41F 


88 


1378 


DEY 




D420 


B174 


1379 


LDA 


(A74),Y 


D422 


48 


1380 
1381 
1382 
1383 


PHA 




D423 


4C2ED2 


1384 
1385 


JMP 


UPDBY3 


>|<s|cs|cs|c> 


|( SK SK SK SK SK SK !|( SK 


sK sK s|( sK sK sK sK sK ^ 


^S|(S|(S|<S|(S|(!|(S|(S|(S|(S|(S|<S|(S|(!|(S|(S|<S|(S|(S|<S|(S|(!| 






1386 










1387 


Store 


extended wo 






1388 










1389 S 


jTE RDAUX 








+ 


IFDEF 


BIG 






+ 


STA 


RAMRDS 






+ 


ENDIF 




D426 


A001 


1390 


LDY 


#1 


D428 


B158 


1391 
1392 


LDA 
RDMAIN 


(IPCPTR),Y 






+ 


IFDEF 


BIG 






+ 


STA 


RAMRDC 






+ 


ENDIF 




D42A 


0A 


1393 


ASL 


A 


D42B 


AA 


1394 


TAX 




D42C 


C8 


1395 


INY 




D42D 


2055D1 


1396 
1397 
1398 
1399 


JSR 


EBIG2M 


D430 


BD9EBD 


1400 


LDA 


lUTBL.X 


D433 


18 


1401 


CLC 




D434 


655E 


1402 


ADC 


OPRND 


D436 


8574 


1403 


STA 


A74 


D438 


BD9FBD 


1404 


LDA 


IUTBL+1,X 


D43B 


655F 


1405 


ADC 


OPRND+1 


D43D 


8575 


1406 
1407 
1408 
1409 


STA 


A74+1 


D43F 


A000 


1410 


LDY 


#0 
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D441 68 


1411 




PLA 




D442 9174 


1412 




STA 


(A74),Y 


D444 C8 


1413 




INY 




D445 68 


1414 




PLA 




D446 9174 


1415 
1416 
1417 
1418 




STA 


(A74),Y 


D448 4C2ED2 


1419 
1420 




JMP 


UPDBY3 


**************!|<!(!!(!!|<!(C!(!!(!!(!!|<!|<!(!!(!!|<!|<!(!!(C!|C!(!!(!!(!!(C!|C!(!!(C!|C!|C!(C!(C!(C!|CS(!!(C!|C!(!!(!!|<******** 




1421 










1422 




Load extended address 




1423 










1424 


LAE 


RDAUX 






+ 




IFDEF 


BIG 




+ 




STA 


RAMRDS 




+ 




ENDIF 




D44B A001 


1425 




LDY 


#1 


D44D B158 


1426 
1427 




LDA 

RDMAIN 


(IPCPTR),Y 




+ 




IFDEF 


BIG 




+ 




STA 


RAMRDC 




+ 




ENDIF 




D44F 0A 


1428 




ASL 


A 


D450 AA 


1429 




TAX 




D451 C8 


1430 




INY 




D452 2055D1 


1431 
1432 
1433 
1434 




JSR 


EBIG2M 


D455 BD9EBD 


1435 




LDA 


lUTBL.X 


D458 18 


1436 




CLC 




D459 655E 


1437 




ADC 


OPRND 


D45B A8 


1438 




TAY 




D45C BD9FBD 


1439 




LDA 


IUTBL+1,X 


D45F 655F 


1440 




ADC 


OPRND+1 


D461 48 


1441 




PHA 




D462 98 


1442 




TYA 




D463 48 


1443 
1444 
1445 
1446 




PHA 




D464 4C2ED2 


1447 




JMP 


UPDBY3 




1448 


;.PAGE 'Short index and load word 




1449 










1450 










1451 








D467 E9F0 


1452 


SIND 


SBB 


#$F0 


D469 A8 


1453 




TAY 




D46A 68 


1454 


SINDG 


PLA 




D46B 8574 


1455 




STA 


A74 


D46D 68 


1456 




PLA 




D46E 8575 


1457 
1458 
1459 
1460 




STA 


A74+1 


D470 C8 


1461 




INY 




D471 B174 


1462 




LDA 


(A74),Y 
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D473 48 
D474 88 
D475 B174 
D477 48 



D478 4C4DD2 



1463 PHA 

1464 DEY 

1465 LDA 

1466 PHA 
1467 
1468 
1469 
1470 
1471 

1472 
1473 
1474 
1475 STO PLA 

A74 



JMP 



(A74),Y 



UPDBYl 



Store indirect word 



D47B 68 
D47C 8574 
D47E 68 
D47F 8575 



D481 68 
D482 8576 
D484 68 
D485 8577 



D487 A000 
D489 A574 
D48B 9176 
D48D C8 
D48E A575 
D490 9176 



D492 4C4DD2 



1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 



STA 
PLA 
STA 



PLA 
STA 
PLA 
STA 



LDY 
LDA 
STA 
INY 
LDA 
STA 



JMP 



A74+1 

A76 
A76+1 



#0 

A74 

(A76),Y 

A74+1 
(A76),Y 



UPDBYl 



1500 
1501 
1502 
1503 LDC RDAUX 

+ IFDEF BIG 



Load multiple word address 





+ 




STA RAMRDS 




+ 




ENDIF 




1504 


ifnd 


ef GRIG 




1505 




LDY #1 




1506 


else 




D495 C8 


1507 




INY 




1508 


endi 


f 


D496 B158 


1509 




LDA (IPCPTR),Y 




1510 




RDMAIN 




+ 




IFDEF BIG 




+ 




STA RAMRDC 




+ 




ENDIF 


D498 AA 


1511 




TAX 


D499 A8 


1512 




TAY 


D49A C8 


1513 




INY 


D49B 98 


1514 




TYA 
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D49C OA 
D49D 8574 



D49F A558 
D4A1 2901 
D4A3 F006 



D4A5 E658 
D4A7 D002 
D4A9 E659 



D4AB A003 



D4AD 
D4AF 
D4B0 
D4B1 
D4B3 
D4B4 
D4B5 
D4B6 
D4B7 
D4B8 



B158 

48 

88 

B158 

48 

C8 

C8 

C8 

CA 

D0F3 



D4BA A558 
D4BC 18 
D4BD 6574 
D4BF 8558 
D4C1 9002 
D4C3 E659 



D4C5 4C53D2 






1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 



+ 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 



ASL 
STA 



A 
A74 



LDA IPCPTR 

AND #$01 

BZ INXFB 

Increment pointer 

INC IPCPTR 

BNZ INXFB 

INC IPCPTR+1 



INXFB LDY #3 

RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 
INXFD LDA (IPCPTR), Y 

PHA 

DEY 

LDA ( IPCPTR), Y 

PHA 

INY 

INY 

INY 

DEX 

BNZ 



LDA 
CLC 
ADC 
STA 
BNC 
INC 



INXFE JMP 



INXFD 



IPCPTR 

A74 
IPCPTR 
INXFE 
IPCPTR+1 



EXECPC 






D4C8 C8 
D4C9 B158 



1558 
1559 
1560 
1561 LDM 

+ 

+ 

+ 
1562 
1563 
1564 
1565 
1566 
1567 



Load multiple words 



RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 
ifndef GRIG 

LDY #1 
else 

INY 
endif 

LDA (IPCPTR), Y 
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1568 


RDMAIN 








-1- 


IFDEF 


BIG 






+ 


STA 


RAMRDC 






+ 


ENDIF 




D4CB 


8574 


1569 


STA 


A74 


D4CD 


0A 


1570 


ASL 


A 


D4CE 


A8 


1571 


TAY 




D4CF 


8576 


1572 
1573 
1574 
1575 


STA 


A76 


D4D1 


BA 


1576 


TSX 




D4D2 


8A 


1577 


TXA 




D4D3 


38 


1578 


CLB 




D4D4 


E576 


1579 


SBB 


A76 


D4D6 


901B 


1580 


BB 


INXFG 


D4D8 


E908 


1581 


SBB 


#8 


D4DA 


9017 


1582 
1583 


BB 


INXFG 






1584 


Initialize loop count 






1585 






D4DC 


A674 


1586 
1587 
1588 
1589 


LDX 


A74 


D4DE 


88 


1590 
1591 


DEY 








1592 


Set source pointer 






1593 






D4DF 


68 


1594 


PLA 




D4E0 


8568 


1595 


STA 


SRCPTR 


D4E2 


68 


1596 


PLA 




D4E3 


8569 


1597 
1598 
1599 
1600 


STA 


SRCPTR+1 


D4E5 


B168 


1601 ] 


[NXFF LDA 


(SRCPTR), Y 


D4E7 


48 


1602 


PHA 




D4E8 


88 


1603 


DEY 




D4E9 


B168 


1604 


LDA 


(SRCPTR), Y 


D4EB 


48 


1605 


PHA 




D4EC 


88 


1606 


DEY 




D4ED 


CA 


1607 


DEX 




D4EE 


D0F5 


1608 
1609 
1610 
1611 


BNZ 


INXFF 


D4F0 


4C3BD2 


1612 
1613 
1614 
1615 


JMP 


UPDBY2 


D4F3 


4CC3D1 


1616 ] 
1617 


[NXFG JMP 


OOMERR 


*S|(!|(!|(S|<S|<S|(!|<S|<S|<!|<S|(S|(S|<S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|(S|(!|(S|(S|(S|(S|(S|(S|(S|(S|(S|<S|<!|<!|(S|<S|<!^!|(S|<!|<!^!|(S|<SK 






1618 










1619 


Store 


multiple words 






1620 










1621 ; 


5TM RDAUX 








+ 


IFDEF 


BIG 






+ 


STA 


RAMRDS 
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+ 




ENDIF 










1622 


ifnd 


ef ORIC 










1623 




LDY 


#1 








1624 


else 








D4F6 


C8 


1625 
1626 


endi 


INY 

f 






D4F7 


B158 


1627 
1628 

+ 
+ 
+ 




LDA 

RDMAIN 

IFDEF 

STA 

ENDIF 


(IPCPTR),Y 

BIG 

RAMRDC 




D4F9 


8574 


1629 
1630 
1631 
1632 




STA 


A74 




D4FB 


BA 


1633 




TSX 






D4FC 


8A 


1634 




TXA 






D4FD 


18 


1635 




CLC 






D4FE 


6574 


1636 




ADC 


A74 




D500 


6574 


1637 




ADC 


A74 




D502 


AA 


1638 




TAX 






D503 


BD0101 


1639 




LDA 


P1BASE+1,X 




D506 


856A 


1640 




STA 


DSTPTR 




D508 


BD0201 


1641 




LDA 


P1BASE+2,X 




D50B 


856B 


1642 




STA 


DSTPTR+1 




D50D 


88 


1643 
1644 


t 


DEY 










1645 


t 


Initialize loop counter 








1646 


t 








D50E 


A674 


1647 
1648 


t 


LDX 


A74 








1649 


t 


Go see 


if counter starts at 


zero 






1650 


t 








D510 


4C1CD5 


1651 
1652 
1653 
1654 


t 
t 
t 


JMP 


INXFJ 




D513 


68 


1655 


INXFI 


PLA 






D514 


916A 


1656 




STA 


(DSTPTR), Y 




D516 


C8 


1657 




INY 






D517 


68 


1658 




PLA 






D518 


916A 


1659 




STA 


(DSTPTR), Y 




D51A 


C8 


1660 




INY 






D51B 


CA 


1661 




DEX 






D51C 


D0F5 


1662 
1663 


INXFJ 


BNZ 


INXFI 








1664 




Fix stack 








1665 










D51E 


68 


1666 




PLA 






D51F 


68 


1667 
1668 
1669 
1670 




PLA 






D520 


4C3BD2 


1671 
1672 




JMP 


UPDBY2 




*!(C!(C!(C!(CS(C!(C!(CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|C!(C!(C!(C!(C!(!!(C!(C!(CS(C!(CS(C!|CS|CS(CS(C!|C!|CS(CS(C!(C!|<!K!K!K*!K!K**!K!K**!K* 






1673 














1674 




Load byte 








1675 














1676 


LDB 
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1677 


ifndef GRIG 






1678 


TSX 








1679 


CLC 








1680 


PLA 








1681 


ADC 


P1BASE+3,X 






1682 


STA 


A74 






1683 


PLA 








1684 


ADC 


P1BASE+4,X 






1685 


STA 


A74+1 






1686 


TYA 








1687 


STA 


P1BASE+4,X 






1688 


LDA 


(A74),Y 






1689 


STA 


P1BASE+3,X 






1690 


else 




D523 


68 


1691 


PLA 




D524 


8574 


1692 


STA 


A74 


D526 


68 


1693 


PLA 




D527 


8575 


1694 
1695 
1696 
1697 


STA 


A74+1 


D529 


18 


1698 


CLC 




D52A 


68 


1699 


PLA 




D52B 


6574 


1700 


ADC 


A74 


D52D 


8574 


1701 


STA 


A74 


D52F 


68 


1702 


PLA 




D530 


6575 


1703 


ADC 


A74+1 


D532 


8575 


1704 


STA 


A74+1 


D534 


A900 


1705 


LDA 


#0 


D536 


48 


1706 


PHA 




D537 


B174 


1707 


LDA 


(A74),Y 


D539 


48 


1708 
1709 
1710 
1711 
1712 


PHA 
endif 




D53A 


4C4DD2 


1713 
1714 


JMP 


UPDBYl 


*s|cs|cs|c> 


|( sK sK sK sK sK sK sK s^ 


SK S|( !|< SK !|< !|< S|( !|<> 


KS|(S|(S|<S|(S|(S|(S|(S|<S|<!|(S|<S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S| 






1715 










1716 


store 


byte 






1717 






D53D 


68 


1718 ; 


5TB PLA 




D53E 


AA 


1719 


TAX 




D53F 


68 


1720 
1721 
1722 
1723 


PLA 




D540 


68 


1724 


PLA 




D541 


8574 


1725 


STA 


A74 


D543 


68 


1726 


PLA 




D544 


8575 


1727 
1728 
1729 
1730 


STA 


A74+1 


D546 


18 


1731 


CLC 




D547 


68 


1732 


PLA 




D548 


6574 


1733 


ADC 


A74 


D54A 


8574 


1734 


STA 


A74 


D54C 


68 


1735 


PLA 
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D54D 6575 


1736 




ADC 


A74+1 


D54F 8575 


1737 




STA 


A74+1 


D551 8A 


1738 




TXA 




D552 9174 


1739 
1740 
1741 
1742 




STA 


(A74),Y 


D554 4C4DD2 


1743 
1744 




JMP 


UPDBYl 


*S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|<S|(!|<S|<!|<!|(!|(!|<S|<S|(S|(S|(S|(S|(S|(S|(S|(S|(!|(S|<S|(S|(S|(S|(S|<S|(S|(S|(S|(S|(S|(S|(>|<S|(S|(S|<S|(S|(S|(S|<* 




1745 










1746 




Move 


words 




1747 








D557 68 


1748 


MOV 


PLA 




D558 8568 


1749 




STA 


SRCPTR 


D55A 68 


1750 




PLA 




D55B 8569 


1751 
1752 
1753 
1754 




STA 


SRCPTR+1 


D55D 68 


1755 




PLA 




D55E 856A 


1756 




STA 


DSTPTR 


D560 68 


1757 




PLA 




D561 856B 


1758 
1759 
1760 
1761 




STA 


DSTPTR+1 


D563 A001 


1762 




LDY 


#1 


D565 2055D1 


1763 
1764 
1765 
1766 




JSR 


EBIG2M 


D568 4CDDE8 


1767 
1768 




JMP 


AE8DD 


*S(CS|CS|CS(CS(CS|C!|CS(CS(CS|C!|CS(CS(CS|C!|CS|CS(CS|CS|CS(CS(CS|C!|CS(CS(CS|C!|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(CS|C!|CS(CS(CS|C!|CS(CS(CS|CS|CS(CS(CS|CSK 




1769 










1770 




Logical AND 




1771 










1772 


LAND 








1773 


ifndef GRIG 




1774 




TSX 






1775 




LDA 


P1BASE+3,X 




1776 




AND 


P1BASE+1,X 




1777 




STA 


P1BASE+3,X 




1778 




LDA 


P1BASE+4,X 




1779 




AND 


P1BASE+2,X 




1780 




STA 


P1BASE+4,X 




1781 




INX 






1782 




INX 






1783 




TXS 






1784 


else 




D56B 68 


1785 




PLA 




D56C 8574 


1786 




STA 


A74 


D56E 68 


1787 




PLA 




D56F 8575 


1788 




STA 


A74+1 


D571 68 


1789 




PLA 




D572 AA 


1790 




TAX 




D573 68 


1791 




PLA 




D574 2575 


1792 




AND 


A74+1 


D576 48 


1793 




PHA 
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D577 8A 


1794 




TXA 




D578 2574 


1795 




AND 


A74 


D57A 48 


1796 




PHA 






1797 


endi 


f 






1798 










1799 










1800 








D57B 4C4DD2 


1801 
1802 




JMP 


UPDBYl 


*S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|<S|(S|(S|(S|(S|(S|(S|(S|(S|(!|(S|<S|(S|(S|(S|(S|<S|(S|(S|(S|(S|(S|(S|(>|<S|(S|(S|<S|(S|(S|(S|<* 




1803 










1804 




Logica 


I OR 




1805 










1806 


LOR 








1807 


ifndef GRIG 




1808 




TSX 






1809 




LDA 


P1BASE+3,X 




1810 




ORA 


P1BASE+1,X 




1811 




STA 


P1BASE+3,X 




1812 




LDA 


P1BASE+4,X 




1813 




ORA 


P1BASE+2,X 




1814 




STA 


P1BASE+4,X 




1815 




INX 






1816 




INX 






1817 




TXS 






1818 


else 






D57E 68 


1819 




PLA 




D57F 8574 


1820 




STA 


A74 


D581 68 


1821 




PLA 




D582 8575 


1822 




STA 


A74+1 


D584 68 


1823 




PLA 




D585 AA 


1824 




TAX 




D586 68 


1825 




PLA 




D587 0575 


1826 




ORA 


A74+1 


D589 48 


1827 




PHA 




D58A 8A 


1828 




TXA 




D58B 0574 


1829 




ORA 


A74 


D58D 48 


1830 




PHA 






1831 


endi 


f 






1832 










1833 










1834 








D58E 4C4DD2 


1835 
1836 




JMP 


UPDBYl 


*S(C!|CS|CS(CS|CS|CS|CS|CS(C!|CS(C!(C!(!!|CS|CS(C!(C!|CS|C!(CS(C!|C!|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(C!|C!|C!(CS(CS|C!|CS(CS(C!|CS|CS(CS(C!|CS(!S(CS(C!|CS(C 




1837 










1838 




Logica 


I NOT 




1839 








D591 68 


1840 


LNOT 


PLA 




D592 AA 


1841 




TAX 




D593 68 


1842 




PLA 




D594 49FF 


1843 




EOR 


#$FF 


D596 48 


1844 




PHA 




D597 8A 


1845 




TXA 




D598 49FF 


1846 




EOR 


#$FF 


D59A 48 


1847 
1848 
1849 
1850 




PHA 




D59B 4C4DD2 


1851 




JMP 


UPDBYl 
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D59E A901 
D5A0 0558 
D5A2 8558 



D5A4 68 
D5A5 858C 
D5A7 68 
D5A8 858D 



D5AA 
D5AC 
D5AE 
D5B0 
D5B2 
D5B4 
D5B6 
D5B8 
D5B9 
D5BB 
D5BD 
D5BF 
D5C1 
D5C3 



D5C5 
D5C7 
D5C9 
D5CB 
D5CD 
D5CF 
D5D1 
D5D3 
D5D5 
D5D6 
D5D8 
D5DA 
D5DC 
D5DE 
D5E0 



A002 

5158 

3011 

B158 

C58D 

900F 

D069 

88 

A58C 

D158 

B006 

9060 

A58D 

305C 



A004 

B158 

458D 

3011 

A58D 

D158 

900F 

D04C 

88 

B158 

C58C 

B006 

9043 

A58D 

103F 



1852 
1853 
1854 
1855 
1856 



1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 



.PAGE 'Case jump' 



XJP 



RDAUX 
IFDEF BIG 
STA RAMRDS 
ENDIF 

Insure P-code pointer is odd 

LDA #%00000001 
ORA IPCPTR 
STA IPCPTR 

Extract case value 



PLA 
STA 
PLA 
STA 



A8C 
A8C+1 



Compare case value against low bound 



LDY 
EOR 
BM 
LDA 
CMP 
BL 
BNE 
DEY 
LDA 
CMP 
BGE 
BL 
INXFK LDA 
BM 



#2 

(IPCPTR), Y 

INXFK 

(IPCPTR), Y 

A8C+1 

INXFL 

OUTBND 

A8C 

(IPCPTR), Y 

INXFL 

OUTBND 

A8C+1 

OUTBND 



Compare case value against high bound 



INXFL LDY 
LDA 
EOR 
BM 
LDA 
CMP 
BL 
BNE 
DEY 
LDA 
CMP 
BGE 
BL 

INXFN LDA 
BNM 



#4 

(IPCPTR), Y 
A8C+1 
INXFN 
A8C+1 
(IPCPTR), Y 
INXFO 
OUTBND 

(IPCPTR), Y 

A8C 

INXFO 

OUTBND 

A8C+1 

OUTBND 



Subtract low bound from case value 
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D5E2 38 


1908 INXFO CLB 




D5E3 A001 


1909 


LDY 


#1 


D5E5 A58C 


1910 


LDA 


A8C 


D5E7 F158 


1911 


SBB 


(IPCPTR),Y 


D5E9 858C 


1912 


STA 


A8C 


D5EB A58D 


1913 


LDA 


A8C+1 


D5ED C8 


1914 


INY 




D5EE F158 


1915 


SBB 


(IPCPTR),Y 


D5F0 858D 


1916 
1917 


STA 


A8C+1 




1918 


Multiply result by 2 




1919 






D5F2 068C 


1920 


ASL 


A8C 


D5F4 268D 


1921 
1922 
1923 
1924 


ROL 


A8C+1 


D5F6 A558 


1925 


LDA 


IPCPTR 


D5F8 18 


1926 


CLC 




D5F9 658C 


1927 


ADC 


A8C 


D5FB 858C 


1928 


STA 


A8C 


D5FD A559 


1929 


LDA 


IPCPTR+1 


D5FF 658D 


1930 


ADC 


A8C+1 


D601 858D 


1931 
1932 
1933 
1934 


STA 


A8C+1 


D603 A58C 


1935 


LDA 


A8C 


D605 18 


1936 


CLC 




D606 6907 


1937 


ADC 


#7 


D608 858C 


1938 


STA 


A8C 


D60A 9002 


1939 


BNC 


INXFQ 


D60C E68D 


1940 
1941 
1942 
1943 


INC 


A8C+1 


D60E A000 


1944 ] 


[NXFQ LDY 


#0 


D610 38 


1945 


CLB 




D611 A58C 


1946 


LDA 


A8C 


D613 F18C 


1947 


SBB 


(A8C),Y 


D615 8558 


1948 


STA 


IPCPTR 


D617 A58D 


1949 


LDA 


A8C+1 


D619 C8 


1950 


INY 




D61A F18C 


1951 


SBB 


(A8C),Y 


D61C 8559 


1952 
1953 


STA 


IPCPTR+1 




1954 


Go execute next op code 




1955 






D61E 4C53D2 


1956 
1957 


JMP 


EXECPC 




1958 


Add 5 


to pointer 




1959 






D621 A558 


1960 ( 


)UTBND 


LDA IPCPTR 


D623 18 


1961 


CLC 




D624 6905 


1962 


ADC 


#5 


D626 8558 


1963 


STA 


IPCPTR 


D628 9002 


1964 


BNC 


INXFX 


D62A E659 


1965 
1966 


INC 


IPCPTR+1 




1967 


Go execute next op code 
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1968 


D62C 


4C53D2 


1969 

1970 
1971 
1972 
1973 


D62F 


2090D1 


1974 
1975 
1976 
1977 


D632 


68 


1978 


D633 


8574 


1979 


D635 


68 


1980 


D636 


8575 


1981 
1982 
1983 
1984 


D638 


68 


1985 


D639 


8576 


1986 


D63B 


68 


1987 


D63C 


8577 


1988 
1989 
1990 
1991 


D63E 


0674 


1992 


D640 


2675 


1993 
1994 
1995 
1996 


D642 


A000 


1997 


D644 


A55A 


1998 


D646 


9176 


1999 


D648 


C8 


2000 


D649 


A55B 


2001 


D64B 


9176 


2002 
2003 
2004 
2005 


D64D 


A55A 


2006 


D64F 


18 


2007 


D650 


6574 


2008 


D652 


855A 


2009 


D654 


A55B 


2010 


D656 


6575 


2011 


D658 


855B 


2012 
2013 
2014 
2015 


D65A 


38 


2016 


D65B 


A55C 


2017 


D65D 


E55A 


2018 


D65F 


A55D 


2019 


D661 


E55B 


2020 


D663 


B003 


2021 
2022 
2023 
2024 


D665 


4CC3D1 


2025 
2026 



INXFX JMP EXECPC 

;.PAGE 'Allocate variable on heap' 

I 
t 

NEW JSR INXAZ 

; Pull number of words to allocate 

PLA 

STA A74 

PLA 

STA A74+1 

Pull address of pointer variable 

PLA 

STA A76 

PLA 

STA A76+1 

Word count * 2 



byte count 



ASL 
ROL 



A74 
A74+1 



Move current heap pointer to variable pointer 



LDY 
LDA 
STA 
INY 
LDA 
STA 



#0 

HPPTR 

(A76),Y 

HPPTR+1 
(A76),Y 



Update heap pointer 
HPPTR 



LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 



A74 

HPPTR 

HPPTR+1 

A74+1 

HPPTR+1 



Branch if not out of memory 



CLB 
LDA 
SBB 
LDA 
SBB 
BNB 



PSKPTR 

HPPTR 

PSKPTR+1 

HPPTR+1 

INXFY 



Go to error logic 
JMP OOMERR 
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2027 


/ 


Go u 


pdate P-code pointer and 


execute 


next P-code 






2028 


/ 










D668 


4C3BD2 


2029 
2030 


INXFY JMP 
; .PAGE 'Mc 


UPDBY2 
irk heap or release heap' 










2031 


/ 














2032 


t 














2033 


t 










D66B 


2090D1 


2034 
2035 
2036 
2037 


MRK 


JSR 


INXAZ 






D66E 


68 


2038 




PLA 








D66F 


8574 


2039 




STA 


A74 






D671 


68 


2040 




PLA 








D672 


8575 


2041 
2042 
2043 
2044 




STA 


A74+1 






D674 


A000 


2045 




LDY 


#0 






D676 


A55A 


2046 




LDA 


HPPTR 






D678 


9174 


2047 




STA 


(A74),Y 






D67A 


C8 


2048 




INY 








D67B 


A55B 


2049 




LDA 


HPPTR+1 






D67D 


9174 


2050 
2051 




STA 


(A74),Y 










2052 




Go u 


pdate P-code pointer and 


execute 


next P-code 






2053 












D67F 


4C3BD2 


2054 
2055 




JMP 


UPDBY2 






*S(C!|C!|CS(C!(C!|C!|C!(CS(C!|C!|C!(!!(C!|C!|C!(C!(C!|C!|CS(C!(C!|C!(!!(!!(C!(C!(C!(CS(C!|C!|CS(CS(CS|C!|CS(CS(C!|C*************** 






2056 
















2057 
















2058 












D682 


68 


2059 


RLS 


PLA 








D683 


8574 


2060 




STA 


A74 






D685 


68 


2061 




PLA 








D686 


8575 


2062 
2063 
2064 
2065 




STA 


A74+1 






D688 


A000 


2066 




LDY 


#0 






D68A 


B174 


2067 




LDA 


(A74),Y 






D68C 


855A 


2068 




STA 


HPPTR 






D68E 


C8 


2069 




INY 








D68F 


B174 


2070 




LDA 


(A74),Y 






D691 


855B 


2071 
2072 
2073 
2074 




STA 


HPPTR+1 






D693 


A900 


2075 




LDA 


#0 






D695 


8DE6BD 


2076 




STA 


SYCGDP 






D698 


A900 


2077 




LDA 


#0 






D69A 


8DE7BD 


2078 
2079 




STA 


SYCGDP+1 










2080 




Go u 


pdate P-code pointer and 


execute 


next P-code 






2081 












D69D 


4C3BD2 


2082 




JMP 


UPDBY2 










2083 


;.PAGE 'Exit operating system' 
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D6A0 A9AD 
D6A2 8500 
D6A4 A98A 
D6A6 8501 
D6A8 A9C0 
D6AA 8502 



D6AC A96C 
D6AE 8503 
D6B0 A9FC 
D6B2 8504 
D6B4 A9FF 
D6B6 8505 



D6B8 4C0000 



D6BB 68 
D6BC AA 
D6BD 68 
D6BE 3006 



D6C0 48 
D6C1 8A 
D6C2 48 



D6C3 4C4DD2 



D6C6 
D6C7 
D6C8 
D6C9 
D6CB 
D6CD 
D6CE 
D6CF 
D6D1 
D6D3 
D6D4 
D6D5 



A8 

18 

8A 

49FF 

6901 

AA 

98 

49FF 

6900 

48 

8A 

48 



D6D6 4C4DD2 



2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 

2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 



Move store intruction to $00.. $02 



XIT 



LDA 
STA 
LDA 
STA 
LDA 
STA 



#$AD 

A00 

#>AC08A 

A00+1 

#<AC08A 

A00+2 



Move indirect jump instruction to $03.. $05 



LDA 
STA 
LDA 
STA 
LDA 
STA 



#$6C 

A00+3 

#>AFFFC 

A00+4 

#<AFFFC 

A00+5 



Cold boot system 

JMP A00 

.PAGE 'Absolute value of TOS' 

Branch if value on stack is negative 

ABI PLA 
TAX 
PLA 
BM INXFZ 

Push it back on stack 

PHA 
TXA 
PHA 



JMP 



INXFZ TAY 
CLC 
TXA 
EOR 
ADC 
TAX 
TYA 
EOR 
ADC 
PHA 
TXA 
PHA 



UPDBYl 



#$FF 
#1 



#$FF 
#0 



JMP 



UPDBYl 
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2143 


; .PAGE 'Add 


TOS and T 


OS 




2144 












2145 












2146 












2147 


ifnc 


lef GRIG 






2148 


AD I 


TSX 








2149 




CLC 








2150 




LDA 


PlBASE+3 


X 




2151 




ADC 


PlBASE+1 


X 




2152 




STA 


PlBASE+3 


X 




2153 




LDA 


PlBASE+4 


X 




2154 




ADC 


PlBASE+2 


X 




2155 




STA 


PlBASE+4 


X 




2156 




INX 








2157 




INX 








2158 




TXS 








2159 












2160 












2161 












2162 


else 






D6D9 68 


2163 


AD I 


PLA 






D6DA 8574 


2164 




STA 


A74 




D6DC 68 


2165 




PLA 






D6DD 8575 


2166 
2167 
2168 
2169 




STA 


A74+1 




D6DF 68 


2170 




PLA 






D6E0 A8 


2171 




TAY 






D6E1 68 


2172 




PLA 






D6E2 AA 


2173 
2174 
2175 
2176 




TAX 






D6E3 98 


2177 




TYA 






D6E4 18 


2178 




CLC 






D6E5 6574 


2179 




ADC 


A74 




D6E7 A8 


2180 




TAY 






D6E8 8A 


2181 




TXA 






D6E9 6575 


2182 




ADC 


A74+1 




D6EB 48 


2183 




PHA 






D6EC 98 


2184 




TYA 






D6ED 48 


2185 




PHA 








2186 


endif 








2187 












2188 












2189 










D6EE 4C4DD2 


2190 




JMP 


UPDBYl 






2191 


; .PAGE 'Negate TOS' 






2192 












2193 












2194 










D6F1 68 


2195 


NGI 


PLA 






D6F2 49FF 


2196 




EOR 


#$FF 




D6F4 18 


2197 




CLC 






D6F5 6901 


2198 




ADC 


#1 




D6F7 AA 


2199 




TAX 






D6F8 68 


2200 




PLA 
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D6F9 


49FF 


2201 




EOR 


#$FF 


D6FB 


6900 


2202 




ADC 


#0 


D6FD 


48 


2203 




PHA 




D6FE 


8A 


2204 




TXA 




D6FF 


48 


2205 
2206 
2207 
2208 




PHA 




D700 


4C4DD2 


2209 




JMP 


UPDBYl 






2210 


; .PAGE 'Su 


btract TOS from TOS-1' 






2211 


ifnd 


ef GRIG 






2212 


/ 










2213 


/ 


Set 


index to both operands 






2214 


t 










2215 


SBI 


TSX 








2216 


t 










2217 


t 


Perf 


orm subtraction in place 






2218 


t 










2219 




CLB 








2220 




LDA 


P1BASE+3,X 






2221 




SBB 


P1BASE+1,X 






2222 




STA 


P1BASE+3,X 






2223 




LDA 


P1BASE+4,X 






2224 




SBB 


P1BASE+2,X 






2225 




STA 


P1BASE+4,X 






2226 












2227 




Set 


index to result 






2228 












2229 




INX 








2230 




INX 








2231 




TXS 








2232 


else 










2233 












2234 




Pull 


subtrahend from stack 






2235 








D703 


68 


2236 


SBI 


PLA 




D704 


8574 


2237 




STA 


A74 


D706 


68 


2238 




PLA 




D707 


8575 


2239 
2240 




STA 


A74+1 






2241 




Pull 


minuend from stack 






2242 








D709 


68 


2243 




PLA 




D70A 


A8 


2244 




TAY 




D70B 


68 


2245 




PLA 




D70C 


AA 


2246 
2247 




TAX 








2248 




Perf 


orm subtraction and push 






2249 








D70D 


98 


2250 




TYA 




D70E 


38 


2251 




CLB 




D70F 


E574 


2252 




SBB 


A74 


D711 


A8 


2253 




TAY 




D712 


8A 


2254 




TXA 




D713 


E575 


2255 




SBB 


A74+1 


D715 


48 


2256 




PHA 




D716 


98 


2257 




TYA 




D717 


48 


2258 




PHA 








2259 


endi 


f 
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D718 4C4DD2 



2260 
2261 
2262 
2263 



JMP 



UPDBYl 



D71B A900 
D71D 8565 
D71F 8564 



D721 A210 



D723 668B 
D725 668A 
D727 900D 



D729 
D72B 
D72C 
D72E 
D730 
D732 
D734 



A564 

18 

6588 

8564 

A565 

6589 

8565 



D736 6665 
D738 6664 



D73A 668D 
D73C 668C 



D73E CA 
D73F D0E2 



D741 60 



2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 



.PAGE 'Subroutines' 



MULSUB 



STA 
STA 



LDX 



INXGC ROR 
ROR 
BNC 



LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 



INXGD ROR 
ROR 



ROR 
ROR 



DEX 
BNZ 



RTS 



LDA 

SUM+1 

SUM 



#16 



A8A+1 

A8A 

INXGD 



SUM 

A88 

SUM 
SUM+1 
A88+1 
SUM+1 



SUM+1 
SUM 



A8C+1 
A8C 



INXGC 



#0 



2311 

2312 

2313 
D742 68 2314 MULPLY PLA 
D743 858A 2315 STA A8A 
D745 68 2316 PLA 
D746 858B 2317 STA A8A+1 
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2318 


/ 






2319 


/ 






2320 


/ 




D748 3009 


2321 
2322 
2323 
2324 


BM 

t 
t 
t 


INXGF 


D74A 68 


2325 


PLA 




D74B 8588 


2326 


STA 


A88 


D74D 68 


2327 


PLA 




D74E 8589 


2328 
2329 
2330 
2331 


STA 

/ 


A88+1 


D750 4C7DD7 


2332 
2333 
2334 
2335 


JMP 

/ 
t 


INXGG 


D753 68 


2336 


INXGF PLA 




D754 8588 


2337 


STA 


A88 


D756 68 


2338 


PLA 




D757 8589 


2339 
2340 
2341 
2342 


STA 

/ 
t 


A88+1 


D759 1022 


2343 
2344 
2345 
2346 


BNM 

t 
t 
t 


INXGG 


D75B A58A 


2347 


LDA 


A8A 


D75D 49FF 


2348 


EOR 


#$FF 


D75F 18 


2349 


CLC 




D760 6901 


2350 


ADC 


#1 


D762 858A 


2351 


STA 


A8A 


D764 A58B 


2352 


LDA 


A8A+1 


D766 49FF 


2353 


EOR 


#$FF 


D768 6900 


2354 


ADC 


#0 


D76A 858B 


2355 
2356 
2357 
2358 


STA 


A8A+1 


D76C A588 


2359 


LDA 


A88 


D76E 49FF 


2360 


EOR 


#$FF 


D770 18 


2361 


CLC 




D771 6901 


2362 


ADC 


#1 


D773 8588 


2363 


STA 


A88 


D775 A589 


2364 


LDA 


A88+1 


D777 49FF 


2365 


EOR 


#$FF 


D779 6900 


2366 


ADC 


#0 


D77B 8589 


2367 
2368 
2369 
2370 


STA 

t 
t 
t 


A88+1 


D77D 201BD7 


2371 
2372 
2373 
2374 


INXGG JSR 

t 


MULSU 


D780 A58D 


2375 


LDA 


A8C+1 


D782 48 


2376 


PHA 




D783 A58C 


2377 


LDA 


A8C 
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D785 48 



D786 4C4DD2 



D789 BA 
D78A BD0201 
D78D 48 
D78E BDOlOl 
D791 48 



D792 4C42D7 



D795 A000 
D797 848A 



D799 8464 
D79B 8465 



D79D 848C 
D79F 848D 



D7A1 A586 
D7A3 D007 
D7A5 A587 
D7A7 D003 



D7A9 4CDFD1 



D7AC A587 
D7AE 1013 



D7B0 A586 
D7B2 49FF 



2378 
2379 
2380 
2381 
2382 

2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 

2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 



PHA 

JMP UPDBYl 
.PAGE 'Square TOS' 



SQI 



TSX 
LDA 
PHA 
LDA 
PHA 



P1BASE+2,X 
P1BASE+1,X 



* JSR MULPLY 

* RTS 

JMP MULPLY 



.PAGE 'Common routine for integer divide and modulo' 



DIVIDE 



LDY 


#0 


STY 


A8A 


STY 


SUM 


STY 


SUM+1 


STY 


A8C 


STY 


A8C+1 


; Branch 


if di 


LDA 


A86 


BNZ 


INXGL 


LDA 


A86+1 


BNZ 


INXGL 



JMP ERR6 

Branch if divisor is not negative 



INXGL LDA 
BNM 



A86+1 
INXGN 



Complement divisor 



LDA 
EOR 



A86 

#$FF 
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D7B4 18 2436 CLC 
D7B5 6901 2437 ADC #1 
D7B7 8586 2438 STA A86 
D7B9 A587 2439 LDA A86+1 
D7BB 49FF 2440 EOR #$FF 
D7BD 6900 2441 ADC #0 
D7BF 8587 2442 STA A86+1 

2443 ; 

2444 ; 

2445 ; 

D7C1 E68A 2446 INC A8A 

2447 ; 

2448 ; Branch if dividend is not negative 

2449 ; 

D7C3 A589 2450 INXGN LDA A88+1 
D7C5 1013 2451 BNM INXGO 

2452 ; 

2453 ; Complement dividend 

2454 ; 

D7C7 A588 2455 LDA A88 
D7C9 49FF 2456 EOR #$FF 
D7CB 18 2457 CLC 
D7CC 6901 2458 ADC #1 
D7CE 8588 2459 STA A88 
D7D0 A589 2460 LDA A88+1 
D7D2 49FF 2461 EOR #$FF 
D7D4 6900 2462 ADC #0 
D7D6 8589 2463 STA A88+1 

2464 ; 

2465 ; 

2466 ; 

D7D8 C68A 2467 DEC A8A 

2468 ; 

2469 ; 

2470 ; 

D7DA 38 2471 INXGO CLB 
D7DB A588 2472 LDA A88 
D7DD E586 2473 SBB A86 
D7DF A589 2474 LDA A88+1 
D7E1 E587 2475 SBB A86+1 
D7E3 B00D 2476 BNB INXGP 

2477 

2478 

2479 
D7E5 848C 2480 STY A8C 
D7E7 848D 2481 STY A8C+1 

2482 

2483 

2484 
D7E9 A588 2485 LDA A88 
D7EB 8588 2486 STA A88 
D7ED A589 2487 LDA A88+1 
D7EF 8589 2488 STA A88+1 

2489 ; 

2490 ; 

2491 ; 
D7F1 60 2492 RTS 

2493 ; 

2494 ; 

2495 ; 
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LDX 


#16 


LDA 


A88+1 


BNZ 


INXGQ 


LDA 


A86 


STA 


SUM+1 


LDA 


A86+1 


STA 


A86 



D7F2 18 2496 INXGP CLC 
D7F3 A210 2497 
D7F5 A589 2498 
D7F7 D00A 2499 

2500 

2501 

2502 
D7F9 A586 2503 
D7FB 8565 2504 
D7FD A587 2505 
D7FF 8586 2506 

2507 

2508 

2509 

D801 A208 2510 LDX #8 
D803 18 2511 INXGQ CLC 
D804 6687 2512 ROR A86+1 
D806 D022 2513 BNZ INXGT 
D808 6686 2514 ROR A86 
D80A D020 2515 BNZ INXGU 
D80C 6665 2516 INXGS ROR SUM+1 
D80E 6664 2517 ROR SUM 
D810 A588 2518 LDA A88 
D812 38 2519 CLB 
D813 E564 2520 SBB SUM 
D815 A8 2521 TAY 
D816 A589 2522 LDA A88+1 
D818 E565 2523 SBB SUM+1 
D81A 9015 2524 BB INXGV 
D81C 8589 2525 STA A88+1 
D81E 8488 2526 STY A88 
D820 38 2527 SEC 
D821 268C 2528 ROL A8C 
D823 268D 2529 ROL A8C+1 
D825 CA 2530 DEX 
D826 18 2531 CLC 
D827 D0E3 2532 BNZ INXGS 

2533 ; 

2534 ; 

2535 ; 

D829 60 2536 RTS 

2537 ; 

2538 ; 

2539 ; 

D82A 6686 2540 INXGT ROR A86 

D82C 6665 2541 INXGU ROR SUM+1 

D82E 6664 2542 ROR SUM 

D830 18 2543 CLC 

D831 268C 2544 INXGV ROL A8C 

D833 268D 2545 ROL A8C+1 

D835 CA 2546 DEX 

D836 D0CB 2547 BNZ INXGO 

2548 

2549 

2550 
D838 60 2551 RTS 



2552 
2553 
2554 



.PAGE 'Divide TOS-1 by TOS ' 
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2555 






D839 68 


2556 DVI PLA 




D83A 8586 


2557 


STA 


A86 


D83C 68 


2558 


PLA 




D83D 8587 


2559 
2560 
2561 
2562 


STA 


A86+1 


D83F 68 


2563 


PLA 




D840 8588 


2564 


STA 


A88 


D842 68 


2565 


PLA 




D843 8589 


2566 
2567 
2568 
2569 


STA 


A88+1 


D845 2095D7 


2570 
2571 
2572 
2573 


JSR 


DIVIDE 


D848 A58A 


2574 


LDA 


A8A 


D84A F011 


2575 
2576 


BZ 


I NXGW 




2577 


Complement qu 




2578 






D84C A58C 


2579 


LDA 


A8C 


D84E 49FF 


2580 


EGR 


#$FF 


D850 18 


2581 


CLC 




D851 6901 


2582 


ADC 


#1 


D853 858C 


2583 


STA 


A8C 


D855 A58D 


2584 


LDA 


A8C+1 


D857 49FF 


2585 


EGR 


#$FF 


D859 6900 


2586 


ADC 


#0 


D85B 858D 


2587 
2588 
2589 
2590 


STA 


A8C+1 


D85D A58D 


2591 ] 


[NXGW LDA 


A8C+1 


D85F 48 


2592 


PHA 




D860 A58C 


2593 


LDA 


A8C 


D862 48 


2594 
2595 
2596 
2597 


PHA 




D863 4C4DD2 


2598 


JMP 


UPDBYl 




2599 


.PAGE 'Mod 


ulo' 




2600 








2601 








2602 






D866 68 


2603 r 


1GDI PLA 




D867 8586 


2604 


STA 


A86 


D869 68 


2605 


PLA 




D86A 8587 


2606 
2607 
2608 
2609 


STA 


A86+1 


D86C 68 


2610 


PLA 




D86D 8588 


2611 


STA 


A88 


D86F 68 


2612 


PLA 




D870 8589 


2613 


STA 


A88+1 
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2614 








2615 








2616 






D872 2095D7 


2617 
2618 
2619 
2620 


JSR 


DIVIDE 


D875 A589 


2621 


LDA 


A88+1 


D877 48 


2622 


PHA 




D878 A588 


2623 


LDA 


A88 


D87A 48 


2624 
2625 
2626 
2627 


PHA 




D87B 4C4DD2 


2628 


JMP 


UPDBYl 




2629 


.PAGE 'Ch 


eck against subr 




2630 








2631 








2632 






D87E 68 


2633 ( 


:hk PLA 




D87F 8574 


2634 


STA 


A74 


D881 68 


2635 


PLA 




D882 8575 


2636 
2637 
2638 
2639 


STA 


A74+1 


D884 68 


2640 


PLA 




D885 8576 


2641 


STA 


A76 


D887 68 


2642 


PLA 




D888 8577 


2643 
2644 
2645 
2646 


STA 


A76+1 


D88A BA 


2647 


TSX 




D88B BD0101 


2648 


LDA 


P1BASE+1,X 


D88E 8578 


2649 


STA 


A78 


D890 BD0201 


2650 


LDA 


P1BASE+2,X 


D893 8579 


2651 
2652 
2653 
2654 


STA 


A78+1 


D895 4577 


2655 


EOR 


A76+1 


D897 3010 


2656 


BM 


INXGX 


D899 A577 


2657 


LDA 


A76+1 


D89B C579 


2658 


CMP 


A78+1 


D89D 900E 


2659 


BL 


INXGY 


D89F D029 


2660 


BNE 


CHKNG 


D8A1 A578 


2661 


LDA 


A78 


D8A3 C576 


2662 


CMP 


A76 


D8A5 B006 


2663 
2664 


BGE 


INXGY 




2665 


Unconditional branch 




2666 






D8A7 9021 


2667 
2668 
2669 
2670 


BL 


CHKNG 


D8A9 A579 


2671 ] 


[NXGX LDA 


A78+1 


D8AB 301D 


2672 


BM 


CHKNG 
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2673 










2674 










2675 








D8AD A575 


2676 ] 


[NXGY LDA 


A74+1 




D8AF 4579 


2677 


EOR 


A78+1 




D8B1 3010 


2678 


BM 


INXHA 




D8B3 A579 


2679 


LDA 


A78+1 




D8B5 C575 


2680 


CMP 


A74+1 




D8B7 900E 


2681 


BL 


CHKOK 




D8B9 D00F 


2682 


BNE 


CHKNG 




D8BB A574 


2683 


LDA 


A74 




D8BD C578 


2684 


CMP 


A78 




D8BF B006 


2685 
2686 


BGE 


CHKOK 






2687 


Unconditional bran 


ch 




2688 








D8C1 9007 


2689 
2690 
2691 
2692 


BL 


CHKNG 




D8C3 A579 


2693 ] 


[NXHA LDA 


A78+1 




D8C5 1003 


2694 
2695 
2696 
2697 


BNM 


CHKNG 




D8C7 4C4DD2 


2698 CHKOK JMP 


UPDBYl 






2699 










2700 










2701 








D8CA 4CB7D1 


2702 CHKNG JMP 


ERRl 






2703 


.PAGE 








2704 


ifdef BIG 








2705 










2706 










2707 










2708 ND9A7 LDA 


BZ5E 






2709 


STA 


A74 






2710 


LDA 


BZ5E+1 






2711 


STA 


A74+1 






2712 










2713 










2714 










2715 r 


»IA LDA 


A74+1 






2716 


BNZ 


MB 






2717 


LDA 


A74 






2718 


BNZ 


NB 






2719 










2720 










2721 










2722 


RTS 








2723 










2724 










2725 










2726 r 


m LDY 


#0 






2727 


LDA 


(A74),Y 






2728 


CMP 


IPCPTR 






2729 


BNE 


NC 






2730 


INY 








2731 


LDA 


(A74),Y 






2732 


CMP 


IPCPTR+1 
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2733 




BNE 


NC 






2734 


/ 










2735 


/ 










2736 


/ 










2737 




RTS 








2738 


/ 










2739 


t 










2740 


t 










2741 


NC 


LDY 


#2 






2742 




LDA 


(A74),Y 






2743 




TAX 








2744 




INY 








2745 




LDA 


(A74),Y 






2746 




STA 


A74+1 






2747 




STX 


A74 






2748 












2749 












2750 












2751 




JMP 


NA 






2752 


endl 


f 








2753 


; .PAGE 








2754 












2755 




Load c 


packed arr 






2756 












2757 


LPA 










2758 


ifdef BIG 








2759 




JSR 


ND9A7 






2760 












2761 












2762 












2763 




LDA 


IPCPTR 






2764 




STA 


A76 






2765 




LDA 


IPCPTR+1 






2766 




STA 


A76+1 






2767 


end! 


f 








2768 












2769 












2770 








D8CD 


E658 


2771 




INC 


IPCPTR 


D8CF 


D002 


2772 




BNZ 


INXHJ 


D8D1 


E659 


2773 
2774 
2775 
2776 
2777 


INXHJ 


INC 


IPCPTR+1 






2778 


'ifdef BIG 








2779 




STA 


RAMRDS 






2780 




LDY 


#0 






2781 


end! 


f 




D8D3 


B158 


2782 




LDA 


(IPCPTR), Y 






2783 


ifnd 


ef BIG 




D8D5 


AA 


2784 
2785 


else 


TAX 








2786 




STA 


RAMRDC 






2787 




STA 


A78 






2788 


end! 


f 








2789 












2790 




Increment pointer 






2791 








D8D6 


E658 


2792 




INC 


IPCPTR 
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D8D8 D002 
D8DA E659 



D8DC A559 
D8DE 48 
D8DF A558 
D8E1 48 



D8E2 4CFAD8 



D8E5 E658 
D8E7 D002 
D8E9 E659 



D8EB A559 
D8ED 48 
D8EE A558 
D8F0 48 



D8F1 B158 
D8F3 AA 



D8F4 E658 
D8F6 D002 
D8F8 E659 



2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 

2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 



BNZ INXHK 
INC IPCPTR+1 
INXHK 
ifndef BIG 



LDA 
PHA 
LDA 
PHA 



IPCPTR+1 
IPCPTR 



endif 



JMP INXHM 
.PAGE 'Load constant string address' 



LSA 
ifdef BIG 

JSR ND9A7 



LDA IPCPTR 

STA A76 

LDA IPCPTR+1 

STA A76+1 



endif 

Increment pointer 

INC IPCPTR 
BNZ INXHL 
INC IPCPTR+1 
INXHL 
ifndef BIG 



LDA 
PHA 
LDA 
PHA 



LDA 
TAX 



IPCPTR+1 
IPCPTR 

(IPCPTR), Y 



Increment pointer 

INC IPCPTR 
BNZ INXHM 
INC IPCPTR+1 
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2852 


/ 






D8FA 18 


2853 


INXHM CLC 




D8FB 8A 


2854 




TXA 




D8FC 6558 


2855 
2856 


else 


ADC 


IPCPTR 




2857 




STA 


RAMRDS 




2858 










2859 










2860 










2861 




LDY 


#0 




2862 




LDA 


(IPCPTR), Y 




2863 




STA 


RAMRDC 




2864 




STA 


A78 




2865 




INC 


A78 




2866 










2867 










2868 










2869 


INXHM 


LDA 


A74+1 




2870 




BNZ 


XHMAI 




2871 




LDA 


A74 




2872 




BNZ 


XHMAI 




2873 










2874 










2875 










2876 




LDA 


PSKPTR 




2877 




CLB 






2878 




SBB 


A78 




2879 




STA 


PSKPTR 




2880 




BNB 


XHMAB 




2881 




DEC 


PSKPTR+1 




2882 


XHMAB 


LDA 


PSKPTR 




2883 




AND 


#$FE 




2884 




STA 


PSKPTR 




2885 










2886 










2887 










2888 




LDA 


PSKPTR+1 




2889 




PHA 






2890 




LDA 


PSKPTR 




2891 




PHA 






2892 










2893 










2894 










2895 




LDY 


A78 




2896 




DEY 






2897 




BM 


XHMAD 




2898 




STA 


RAMRDS 




2899 


XHMAC 


LDA 


(IPCPTR), Y 




2900 




STA 


( PSKPTR), Y 




2901 




DEY 






2902 




BNM 


XHMAC 




2903 




STA 


RAMRDC 




2904 










2905 




Subtract 4 from p 




2906 










2907 


XHMAD 


LDA 


PSKPTR 




2908 




CLB 






2909 




SBB 


#4 




2910 




STA 


PSKPTR 




2911 




BNB 


XHMAE 
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2912 




DEC 


PSKPTR+1 


2913 








2914 








2915 








2916 


XHMAE 


LDY 


#0 


2917 




LDA 


A76 


2918 




STA 


(PSKPTR),Y 


2919 




INY 




2920 




LDA 


A76+1 


2921 




STA 


(PSKPTR),Y 


2922 




INY 




2923 




LDA 


BZ5E 


2924 




STA 


(PSKPTR),Y 


2925 




INY 




2926 




LDA 


BZ5E+1 


2927 




STA 


(PSKPTR),Y 


2928 








2929 








2930 








2931 




LDA 


PSKPTR 


2932 




STA 


BZ5E 


2933 




LDA 


PSKPTR+1 


2934 




STA 


BZ5E+1 


2935 








2936 








2937 








2938 




CLB 




2939 




LDA 


PSKPTR 


2940 




SBB 


HPPTR 


2941 




LDA 


PSKPTR+1 


2942 




SBB 


HPPTR+1 


2943 




BNB 


XHMAF 


2944 


/ 






2945 


/ 






2946 


/ 






2947 




JMP 


OOMERR 


2948 


t 






2949 


t 






2950 


t 






2951 


XHMAF 


LDA 


IPCPTR 


2952 




CLC 




2953 




ADC 


A78 


2954 


end! 


f 




D8FE 8558 2955 




STA 


IPCPTR 


D900 9002 2956 




BNC 


INXHO 


D902 E659 2957 




INC 


IPCPTR+1 


2958 








2959 








2960 








D904 4C53D2 2961 


INXHO JMP 


EXECPC 


2962 


ifdef BIG 




2963 








2964 








2965 








2966 


XHMAI 


LDA 


A74 


2967 




CLC 




2968 




ADC 


#4 


2969 




STA 


A74 


2970 




BNC 


XHMAK 


2971 




INC 


A74+1 
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2972 








2973 








2974 








2975 XHMAK LDA 


A74+1 




2976 


PHA 






2977 


LDA 


A74 




2978 


PHA 






2979 








2980 








2981 








2982 


JMP 


XHMAF 




2983 


endif 






2984 


.PAGE 'String assign' 




2985 








2986 








2987 






D907 68 


2988 ; 


jAS PLA 




D908 8568 


2989 


STA 


SRCPTR 


D90A 68 


2990 


PLA 




D90B 8569 


2991 
2992 
2993 
2994 


STA 


SRCPTR+1 


D90D 68 


2995 


PLA 




D90E 856A 


2996 


STA 


DSTPTR 


D910 68 


2997 


PLA 




D911 856B 


2998 
2999 
3000 
3001 


STA 


DSTPTR+1 




3002 


RDAUX 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDS 




+ 


ENDIF 




D913 A001 


3003 


LDY 


#1 


D915 B158 


3004 


LDA 


(IPCPTR),Y 




3005 


RDMAI^ 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDC 




+ 


ENDIF 




D917 A669 


3006 


LDX 


SRCPTR+1 


D919 D012 


3007 


BNZ 


INXHP 


D91B C901 


3008 


CMP 


#1 


D91D 9026 


3009 


BL 


JERR13 


D91F A901 


3010 


LDA 


#1 


D921 A000 


3011 


LDY 


#0 


D923 916A 


3012 


STA 


(DSTPTR), Y 


D925 A568 


3013 


LDA 


SRCPTR 


D927 C8 


3014 


INY 




D928 916A 


3015 
3016 
3017 
3018 


STA 


(DSTPTR), Y 


D92A 4C3BD2 


3019 
3020 
3021 
3022 


JMP 


UPDBY2 


D92D A000 


3023 ] 


[NXHP LDY 


#0 


D92F D168 


3024 


CMP 


(SRCPTR), Y 
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D931 9012 
D933 B168 
D935 916A 
D937 A8 
D938 4C40D9 



D93B B168 
D93D 916A 
D93F 88 
D940 D0F9 



D942 4C3BD2 



D945 4CF7D1 



D948 BA 
D949 BD0201 
D94C D017 
D94E BD0101 
D951 F012 



D953 BC0301 
D956 8474 
D958 BC0401 
D95B 8475 



D95D A000 
D95F D174 
D961 9005 
D963 F003 



D965 4CB7D1 



D968 4C4DD2 



3025 BL 

3026 LDA 

3027 STA 

3028 TAY 

3029 JMP 
3030 
3031 
3032 

3033 INXHQ LDA 

3034 STA 

3035 DEY 

3036 INXHR BNZ INXHQ 

3037 ; 

3038 ; 

3039 ; 

3040 JMP UPDBY2 

3041 ; 

3042 ; 

3043 ; 

3044 JERR13 JMP ERR13 



JERR13 

(SRCPTR),Y 

(DSTPTR),Y 

INXHR 



(SRCPTR),Y 
(DSTPTR),Y 



D96B A001 
D96D 2055D1 



3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 

3076 
3077 
3078 
3079 
3080 
3081 
3082 



.PAGE 'Index string array' 



IXS TSX 
LDA 
BNZ 
LDA 
BZ 



LDY 
STY 
LDY 
STY 



LDY 
CMP 
BL 
BE 



P1BASE+2,X 
INXHU 

P1BASE+1,X 
INXHU 



P1BASE+3,X 
A74 

P1BASE+4,X 
A74+1 



#0 

(A74),Y 
INXHW 
INXHW 



INXHU JMP ERRl 

/ 
I 

INXHW JMP UPDBYl 

PAGE 'Static index and load word' 



IND LDY #1 

JSR EBIG2M 
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3083 








3084 






D970 18 


3085 


CLC 




D971 68 


3086 


PLA 




D972 655E 


3087 


ADC 


OPRND 


D974 8578 


3088 


STA 


A78 


D976 68 


3089 


PLA 




D977 655F 


3090 


ADC 


OPRND+1 


D979 8579 


3091 
3092 
3093 
3094 


STA 


A78+1 


D97B A001 


3095 


LDY 


#1 


D97D B178 


3096 


LDA 


(A78),Y 


D97F 48 


3097 


PHA 




D980 88 


3098 


DEY 




D981 B178 


3099 


LDA 


(A78),Y 


D983 48 


3100 
3101 
3102 
3103 


PHA 




D984 4C3BD2 


3104 


JMP 


UPDBY2 




3105 


.PAGE 'Increment fi 




3106 








3107 








3108 






D987 A001 


3109 ] 


[NC LDY 


#1 


D989 2055D1 


3110 
3111 
3112 
3113 


JSR 


EBIG2M 


D98C 18 


3114 


CLC 




D98D 68 


3115 


PLA 




D98E 655E 


3116 


ADC 


OPRND 


D990 AA 


3117 


TAX 




D991 68 


3118 


PLA 




D992 655F 


3119 


ADC 


OPRND+1 


D994 48 


3120 


PHA 




D995 8A 


3121 


TXA 




D996 48 


3122 
3123 
3124 
3125 


PHA 




D997 4C3BD2 


3126 


JMP 


UPDBY2 




3127 


.PAGE 'Ind 


ex array' 




3128 








3129 








3130 






D99A 68 


3131 ] 


[XA PLA 




D99B 8588 


3132 


STA 


A88 


D99D 68 


3133 


PLA 




D99E 8589 


3134 
3135 
3136 
3137 


STA 


A88+1 


D9A0 A001 


3138 


LDY 


#1 


D9A2 2055D1 


3139 
3140 


JSR 


EBIG2M 
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3141 








3142 






D9A5 A55F 


3143 


LDA 


OPRND+1 


D9A7 D00D 


3144 
3145 
3146 
3147 


BNZ 


INXHY 


D9A9 A55E 


3148 


LDA 


OPRND 


D9AB C902 


3149 


CMP 


#$02 


D9AD D007 


3150 
3151 
3152 
3153 


BNE 


INXHY 


D9AF 0688 


3154 


ASL 


A88 


D9B1 2689 


3155 
3156 
3157 
3158 


ROL 


A88+1 


D9B3 4CC9D9 


3159 
3160 
3161 
3162 


JMP 


INXIA 


D9B6 A55E 


3163 ] 


[NXHY LDA 


OPRND 


D9B8 858A 


3164 


STA 


A8A 


D9BA A55F 


3165 


LDA 


OPRND+1 


D9BC 858B 


3166 


STA 


A8A+1 


D9BE 201BD7 


3167 
3168 
3169 
3170 


JSR 


MULSUB 


D9C1 A58C 


3171 


LDA 


A8C 


D9C3 8588 


3172 


STA 


A88 


D9C5 A58D 


3173 


LDA 


A8C+1 


D9C7 8589 


3174 
3175 
3176 
3177 


STA 


A88+1 


D9C9 18 


3178 ] 


[NXIA CLC 




D9CA 68 


3179 


PLA 




D9CB 6588 


3180 


ADC 


A88 


D9CD 8578 


3181 


STA 


A78 


D9CF 68 


3182 


PLA 




D9D0 6589 


3183 


ADC 


A88+1 


D9D2 48 


3184 


PHA 




D9D3 A578 


3185 


LDA 


A78 


D9D5 48 


3186 
3187 
3188 
3189 


PHA 




D9D6 4C3BD2 


3190 


JMP 


UPDBY2 




3191 


.PAGE 'Ind 


ex packec 




3192 








3193 








3194 








3195 ] 


[XP RDAUX 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDS 




+ 


ENDIF 




D9D9 A001 


3196 


LDY 


#1 
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D9DB B158 


3197 


LDA 


(IPCPTR),Y 




3198 


ROMAIC 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDC 




+ 


ENDIF 




D9DD 8586 


3199 


STA 


A86 




3200 


RDAUX 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDS 




+ 


ENDIF 




D9DF A002 


3201 


LDY 


#2 


D9E1 B158 


3202 


LDA 


(IPCPTR),Y 




3203 


RDMAIIN 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDC 




+ 


ENDIF 




D9E3 857A 


3204 


STA 


A7A 


D9E5 A900 


3205 


LDA 


#0 


D9E7 8587 


3206 


STA 


A86+1 


D9E9 857B 


3207 


STA 


A7A+1 


D9EB 68 


3208 


PLA 




D9EC 8588 


3209 


STA 


A88 


D9EE 68 


3210 


PLA 




D9EF 8589 


3211 


STA 


A88+1 


D9F1 2095D7 


3212 


JSR 


DIVIDE 


D9F4 068C 


3213 


ASL 


A8C 


D9F6 268D 


3214 


ROL 


A8C+1 


D9F8 18 


3215 


CLC 




D9F9 68 


3216 


PLA 




D9FA 658C 


3217 


ADC 


A8C 


D9FC 8578 


3218 


STA 


A78 


D9FE 68 


3219 


PLA 




D9FF 658D 


3220 


ADC 


A8C+1 


DA01 48 


3221 


PHA 




DA02 A578 


3222 


LDA 


A78 


DA04 48 


3223 


PHA 




DA05 A57B 


3224 


LDA 


A7A+1 


DA07 48 


3225 


PHA 




DA08 A57A 


3226 


LDA 


A7A 


DA0A 48 


3227 


PHA 




DA0B A900 


3228 


LDA 


#0 


DA0D A688 


3229 


LDX 


A88 


DA0F F006 


3230 
3231 
3232 
3233 


BZ 


INXIC 


DAll 18 


3234 


CLC 




DA12 657A 


3235 ] 


[NXIB ADC 


A7A 


DA14 CA 


3236 


DEX 




DA15 D0FB 


3237 
3238 
3239 
3240 


BNZ 


INXIB 


DA17 48 


3241 ] 


[NXIC PHA 




DA18 48 


3242 
3243 
3244 
3245 


PHA 




DA19 4C2ED2 


3246 


JMP 


UPDBY3 
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DAIC 68 
DAID 857C 
DAIF 68 
DA20 857D 



DA22 68 
DA23 857A 
DA25 68 
DA26 857B 



DA28 68 
DA29 8578 
DA2B 68 
DA2C 8579 



DA2E A000 
DA30 B178 
DA32 857E 
DA34 C8 
DA35 B178 
DA37 857F 



DA39 A57C 
DA3B 38 
DA3C E908 
DA3E 300F 



DA40 AA 



DA41 A57E 

DA43 A47F 

DA45 847E 

DA47 857F 



DA49 E000 
DA4B D007 



DA4D F00C 



3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 



.PAGE 'Load a packed field' 

Get offset into word in number of bits 



LDP PLA 
STA 
PLA 
STA 



A7C 
A7C+1 
Get number of bits in field 



PLA 
STA 
PLA 
STA 



A7A 
A7A+1 
Get address of word to extract from 



PLA 
STA 
PLA 
STA 



A78 
A78+1 
Get source word 



LDY 
LDA 
STA 
INY 
LDA 
STA 



#0 

(A78),Y 

A7E 

(A78),Y 
A7E+1 



Branch if field starts in high order byte 



LDA 
CLB 
SBB 
BM 



TAX 



A7C 

#8 
INXID 



LDA 


A7E 


LDY 


A7E+1 


STY 


A7E 


STA 


A7E+1 


CPX 


#0 


BNE 


INXIE 


; Unconditional branch 


BE 


INXIG 
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3307 






DA4F 


6908 


3308 ] 


[NXID ADC 


#8 


DA51 


AA 


3309 


TAX 




DA52 


F007 


3310 
3311 


BZ 


INXIG 






3312 


Right 


adjust source word 






3313 






DA54 


667F 


3314 ] 


[NXIE ROR 


A7E+1 


DA56 


667E 


3315 


ROR 


A7E 


DA58 


CA 


3316 


DEX 




DA59 


D0F9 


3317 
3318 


BNZ 


INXIE 






3319 


Multiply adjusted offset by two 






3320 






DA5B 


A57A 


3321 ] 


[NXIG LDA 


A7A 


DA5D 


0A 


3322 


ASL 


A 


DA5E 


AA 


3323 
3324 


TAX 








3325 


Push 


extracted field onto stack 






3326 






DA5F 


A57E 


3327 


LDA 


A7E 


DA61 


3D92DD 


3328 


AND 


INXKF.X 


DA64 


857E 


3329 


STA 


A7E 


DA66 


A57F 


3330 


LDA 


A7E+1 


DA68 


3D93DD 


3331 


AND 


INXKF+1,X 


DA6B 


48 


3332 


PHA 




DA6C 


A57E 


3333 


LDA 


A7E 


DA6E 


48 


3334 
3335 
3336 
3337 


PHA 




DA6F 


4C4DD2 


3338 


JMP 


UPDBYl 






3339 


.PAGE 'Store into a packed field' 






3340 










3341 


Get TOS 






3342 






DA72 


68 


3343 ; 


5TP PLA 




DA73 


8574 


3344 


STA 


A74 


DA75 


68 


3345 


PLA 




DA76 


8575 


3346 
3347 


STA 


A74+1 






3348 


Get TOS - 1 






3349 






DA78 


68 


3350 


PLA 




DA79 


857C 


3351 


STA 


A7C 


DA7B 


68 


3352 


PLA 




DA7C 


857D 


3353 
3354 
3355 
3356 


STA 


A7C+1 


DA7E 


68 


3357 


PLA 




DA7F 


857A 


3358 


STA 


A7A 


DA81 


68 


3359 


PLA 




DA82 


857B 


3360 
3361 
3362 
3363 


STA 


A7A+1 


DA84 


A57A 


3364 


LDA 


A7A 


DA86 


0A 


3365 


ASL 


A 



Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 73 of 292 



DA87 


AA 


3366 


TAX 






DA88 


BD92DD 


3367 


LDA 


INXKF.X 




DA8B 


8576 


3368 


STA 


A76 




DA8D 


2574 


3369 


AND 


A74 




DA8F 


8574 


3370 


STA 


A74 




DA91 


BD93DD 


3371 


LDA 


INXKF+1,X 




DA94 


8577 


3372 


STA 


A76+1 




DA96 


2575 


3373 


AND 


A74+1 




DA98 


8575 


3374 
3375 
3376 
3377 


STA 


A74+1 




DA9A 


A57C 


3378 


LDA 


A7C 




DA9C 


38 


3379 


CLB 






DA9D 


E908 


3380 


SBB 


#8 




DA9F 


3017 


3381 
3382 
3383 
3384 


BM 


INXII 




DAAl 


AA 


3385 
3386 
3387 
3388 


TAX 






DAA2 


A574 


3389 


LDA 


A74 




DAA4 


A475 


3390 


LDY 


A74+1 




DAA6 


8575 


3391 


STA 


A74+1 




DAA8 


8474 


3392 
3393 
3394 
3395 


STY 


A74 




DAAA 


A576 


3396 


LDA 


A76 




DAAC 


A477 


3397 


LDY 


A76+1 




DAAE 


8577 


3398 


STA 


A76+1 




DAB0 


8476 


3399 
3400 
3401 
3402 


STY 


A76 




DAB2 


E000 


3403 


CPX 


#0 




DAB4 


D007 


3404 
3405 


BNE 


INXIJ 








3406 


Unconditional branc 


h 






3407 








DAB6 


F010 


3408 
3409 
3410 
3411 


BE 


INXIL 




DAB8 


6908 


3412 ] 


[NXII ADC 


#8 




DABA 


AA 


3413 


TAX 






DABB 


F00B 


3414 
3415 
3416 
3417 


BZ 


INXIL 




DABD 


0674 


3418 ] 


[NXIJ ASL 


A74 




DABF 


2675 


3419 


ROL 


A74+1 




DACl 


0676 


3420 


ASL 


A76 




DAC3 


2677 


3421 


ROL 


A76+1 




DAC5 


CA 


3422 


DEX 






DAC6 


D0F5 


3423 
3424 
3425 


BNZ 


INXIJ 
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3426 ; 
DAC8 68 3427 INXIL PLA 
DAC9 8578 3428 
DACB 68 3429 
DACC 8579 3430 

3431 

3432 

3433 
DACE A000 3434 
DAD0 B178 3435 
DAD2 857E 3436 
DAD4 C8 3437 
DAD5 B178 3438 
DAD7 857F 3439 
DAD9 A576 3440 
DADB 49FF 3441 
DADD 257E 3442 
DADF 0574 3443 
DAEl 857E 3444 
DAE3 A577 3445 
DAE5 49FF 3446 
DAE7 257F 3447 
DAE9 0575 3448 
DAEB 857F 3449 

3450 

3451 

3452 
DAED A000 3453 
DAEF A57E 3454 
DAFl 9178 3455 
DAF3 C8 3456 
DAF4 A57F 3457 
DAF6 9178 3458 

3459 

3460 

3461 
DAF8 4C4DD2 3462 JMP UPDBYl 



OR)' 



STA 


A78 


PLA 




STA 


A78+1 


LDY 


#0 


LDA 


(A78),Y 


STA 


A7E 


INY 




LDA 


(A78),Y 


STA 


A7E+1 


LDA 


A76 


EOR 


#$FF 


AND 


A7E 


ORA 


A74 


STA 


A7E 


LDA 


A76+1 


EOR 


#$FF 


AND 


A7E+1 


ORA 


A74+1 


STA 


A7E+1 


LDY 


#0 


LDA 


A7E 


STA 


(A78),Y 


INY 




LDA 


A7E+1 


STA 


(A78),Y 



3463 ;.PAGE 'Set logic - Subroutine for INT, DIF and UNI (AND, AND NOT and 



3464 ; 

3465 ; Pull return address off stack and save it 

3466 ; 

DAFB 68 3467 FIXSET PLA 
DAFC 858C 3468 STA A8C 
DAFE 68 3469 PLA 
DAFF 858D 3470 STA A8C+1 

3471 ; 

3472 ; Double low-order byte of TOS 

3473 ; 

DB01 68 3474 PLA 
DB02 0A 3475 ASL A 
DB03 857C 3476 STA A7C 

3477 ; 

3478 ; Discard high order byte of TOS 

3479 ; 

DB05 68 3480 PLA 

3481 ; 

3482 ; 

3483 ; 
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DB06 BA 


3484 


TSX 




DB07 8A 


3485 


TXA 




DB08 18 


3486 


CLC 




DB09 657C 


3487 


ADC 


A7C 


DB0B A8 


3488 


TAY 




DB0C C8 


3489 


INY 




DB0D 847E 


3490 
3491 
3492 
3493 


STY 


A7E 


DB0F B90001 


3494 


LDA 


PIBASE.Y 


DB12 0A 


3495 
3496 
3497 
3498 


ASL 


A 


DB13 C8 


3499 


INY 




DB14 C8 


3500 


INY 




DB15 8474 


3501 
3502 


STY 


A74 




3503 


Return 


to calle 




3504 






DB17 E68C 


3505 


INC 


A8C 


DB19 D002 


3506 


BNZ 


INXIQ 


DBIB E68D 


3507 
3508 
3509 
3510 


INC 


A8C+1 


DBID 6C8C00 


3511 ] 


[NXIQ JMP 


(A8C) 




3512 


.PAGE 'Set 


logic - ] 




3513 








3514 








3515 






DB20 20FBDA 


3516 ] 
3517 
3518 
3519 


[NT JSR 


FIXSET 


DB23 A67C 


3520 


LDX 


A7C 


DB25 38 


3521 


SEC 




DB26 E57C 


3522 


SBC 


A7C 


DB28 1006 


3523 
3524 
3525 
3526 


BNM 


INXIR 


DB2A 18 


3527 


CLC 




DB2B 657C 


3528 


ADC 


A7C 


DB2D AA 


3529 


TAX 




DB2E A900 


3530 


LDA 


#0 


DB30 8590 


3531 ] 


[NXIR STA 


A90 


DB32 E000 


3532 


CPX 


#0 


DB34 F00B 


3533 
3534 
3535 
3536 


BE 


INXIT 


DB36 68 


3537 ] 


[NXIS PLA 




DB37 390001 


3538 


AND 


PIBASE.Y 


DB3A 990001 


3539 


STA 


P1BASE,Y 


DB3D C8 


3540 


INY 




DB3E CA 


3541 


DEX 




DB3F D0F5 


3542 


BNZ 


INXIS 
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3543 










3544 










3545 








DB41 A690 


3546 


INXIT LDX 


A90 


DB43 F00B 


3547 




BZ 


INXIV 


DB45 3009 


3548 
3549 
3550 
3551 




BM 


INXIV 


DB47 A900 


3552 




LDA 


#0 


DB49 990001 


3553 


INXIU STA 


PIBASE.Y 


DB4C C8 


3554 




INY 




DB4D CA 


3555 




DEX 




DB4E D0F9 


3556 
3557 
3558 
3559 




BNZ 


INXIU 


DB50 A67E 


3560 


INXIV 


LDX 


A7E 


DB52 CA 


3561 




DEX 




DB53 9A 


3562 
3563 
3564 
3565 




TXS 




DB54 4C4DD2 


3566 




JMP 


UPDBYl 




3567 


; .PAGE 'Set 


logic - [ 




3568 


t 








3569 


t 








3570 


t 






DB57 20FBDA 


3571 
3572 
3573 
3574 


DIF 

/ 
t 
t 


JSR 


FIXSET 


DB5A A67C 


3575 




LDX 


A7C 


DB5C C57C 


3576 




CMP 


A7C 


DB5E 1001 


3577 




BNM 


INXIX 


DB60 AA 


3578 




TAX 




DB61 E000 


3579 


INXIX CPX 


#0 


DB63 F00D 


3580 
3581 
3582 
3583 




BE 


INXIZ 


DB65 68 


3584 


INXIY 


PLA 




DB66 49FF 


3585 




EOR 


#$FF 


DB68 390001 


3586 




AND 


PIBASE.Y 


DB6B 990001 


3587 




STA 


PIBASE.Y 


DB6E C8 


3588 




INY 




DB6F CA 


3589 




DEX 




DB70 D0F3 


3590 
3591 
3592 
3593 




BNZ 


INXIY 


DB72 A67E 


3594 


INXIZ 


LDX 


A7E 


DB74 CA 


3595 




DEX 




DB75 9A 


3596 
3597 
3598 
3599 




TXS 




DB76 4C4DD2 


3600 




JMP 


UPDBYl 
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3601 


.PAGE 'Set 


logic - L 




3602 








3603 








3604 






DB79 20FBDA 


3605 UNI JSR 


FIXSET 




3606 








3607 








3608 






DB7C C57C 


3609 


CMP 


A7C 


DB7E 3018 


3610 
3611 
3612 
3613 


BM 


I NXJC 


DB80 A67C 


3614 


LDX 


A7C 


DB82 E000 


3615 


CPX 


#0 


DB84 F00B 


3616 
3617 
3618 
3619 


BE 


INXJB 


DB86 68 


3620 ] 


[NXJA PLA 




DB87 190001 


3621 


ORA 


PIBASE.Y 


DB8A 990001 


3622 


STA 


P1BASE,Y 


DB8D C8 


3623 


INY 




DB8E CA 


3624 


DEX 




DB8F D0F5 


3625 
3626 
3627 
3628 


BNZ 


INXJA 


DB91 A67E 


3629 ] 


[NXJB LDX 


A7E 


DB93 CA 


3630 


DEX 




DB94 9A 


3631 
3632 
3633 
3634 


TXS 




DB95 4C4DD2 


3635 
3636 
3637 
3638 


JMP 


UPDBYl 


DB98 857A 


3639 ] 


[NXJC STA 


A7A 


DB9A C900 


3640 


CMP 


#0 


DB9C D002 


3641 


BNE 


INXJD 


DB9E F01B 


3642 


BE 


INXJF 


DBA0 BA 


3643 ] 


[NXJD TSX 




DBAl E8 


3644 


INX 




DBA2 A474 


3645 


LDY 


A74 


DBA4 A57A 


3646 


LDA 


A7A 


DBA6 8578 


3647 


STA 


A78 


DBA8 A57B 


3648 


LDA 


A7A+1 


DBAA 8579 


3649 


STA 


A78+1 


DBAC B90001 


3650 ] 


[NXJE LDA 


PIBASE.Y 


DBAF 1D0001 


3651 


ORA 


PIBASE.X 


DBB2 9D0001 


3652 


STA 


PIBASE.X 


DBB5 C8 


3653 


INY 




DBB6 E8 


3654 


INX 




DBB7 C678 


3655 


DEC 


A78 


DBB9 D0F1 


3656 
3657 
3658 
3659 


BNZ 


I NXJE 


DBBB A574 


3660 ] 


[NXJF LDA 


A74 
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DBBD 
DBBE 
DBC0 
DBCl 
DBC2 
DBC4 
DBC6 
DBC8 



18 

657A 

AA 

CA 

A57C 

8578 

A57D 

8579 



DBCA A47E 
DBCC 88 
DBCD B90001 
DBD0 9D0001 
DBD3 88 
DBD4 CA 
DBD5 C678 
DBD7 D0F4 



DBD9 9A 



DBDA 467C 
DBDC A57D 
DBDE 48 
DBDF A57C 
DBEl 48 



DBE2 4C4DD2 



DBE5 A001 
DBE7 B158 



DBE9 0A 
DBEA 8584 



DBEC 68 
DBED 8582 
DBEF 68 
DBF0 8583 



3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 

3696 
3697 
3698 
3699 
3700 



3701 
3702 
3703 



3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 



CLC 
ADC 
TAX 
DEX 
LDA 
STA 
LDA 
STA 



LDY 
DEY 
INXJG LDA 
STA 
DEY 
DEX 
DEC 
BNZ 



A7A 



A7C 
A78 
A7C+1 
A78+1 



A7E 

PIBASE.Y 
PIBASE.X 



A78 
INXJG 



TXS 



LSR 


A7C 


LDA 


A7C+1 


PHA 




LDA 


A7C 


PHA 




JMP 


UPDBYl 


; .PAGE 'Set 


logic - Ad; 


'\D3 RDAUX 




IFDEF 


BIG 


STA 


RAMRDS 


ENDIF 




LDY 


#1 


LDA 


(IPCPTR),Y 


RDMAIN 




IFDEF 


BIG 


STA 


RAMRDC 


ENDIF 




ASL 


A 


STA 


A84 


PLA 




STA 


A82 


PLA 




STA 


A82+1 



Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 79 of 292 



Apple ][ Pascal Technical Information 







3714 






3715 


DBF2 


0682 


3716 


DBF4 


2683 


3717 
3718 
3719 
3720 


DBF6 


A582 


3721 


DBFS 


C584 


3722 


DBFA 


D003 


3723 
3724 
3725 
3726 


DBFC 


4C3BD2 


3727 
3728 
3729 
3730 


DBFF 


301B 


3731 
3732 
3733 
3734 


DC01 


BA 


3735 


DC02 


8A 


3736 


DC03 


18 


3737 


DC04 


6584 


3738 


DC06 


A8 


3739 


DC07 


8A 


3740 


DC08 


18 


3741 


DC09 


6582 


3742 


DC0B 


AA 


3743 


DC0C 


B90001 


3744 


DC0F 


9D0001 


3745 


DC12 


88 


3746 


DC13 


CA 


3747 


DC14 


C684 


3748 


DC16 


D0F4 


3749 
3750 
3751 
3752 


DC18 


9A 


3753 
3754 
3755 
3756 


DC19 


4C3BD2 


3757 
3758 
3759 
3760 


DClC 


A584 


3761 


DCIE 


38 


3762 


DCIF 


E582 


3763 


DC21 


8586 


3764 


DC23 


C584 


3765 


DC25 


D00A 


3766 


DC27 


BA 


3767 


DC28 


8A 


3768 


DC29 


38 


3769 


DC2A 


E586 


3770 


DC2C 


AA 


3771 


DC2D 


9A 


3772 


DC2E 


E8 


3773 



Convert word count to byte count 

ASL A82 
ROL A82+1 

Branch if current size <> required size 

LDA A82 
CMP A84 
BNE INXJH 

; Go execute next P-code 

JMP UPDBY2 

; Branch if current size < required size 

INXJH BM INXJJ 



I NX J I 



INXJJ 



TSX 




TXA 




CLC 




ADC 


A84 


TAY 




TXA 




CLC 




ADC 


A82 


TAX 




LDA 


PIBASE.Y 


STA 


P1BASE,X 


DEY 




DEX 




DEC 


A84 


BNZ 


INXJI 


TXS 




Go execute next P-code 


JMP 


UPDBY2 


LDA 


A84 


SEC 




SBC 


A82 


STA 


A86 


CMP 


A84 


BNE 


INXJK 


TSX 




TXA 




SEC 




SBC 


A86 


TAX 




TXS 




INX 
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DC2F D016 


3774 


BNZ 


I NXJM 




DC31 BA 


3775 ] 


[NXJK TSX 






DC32 8A 


3776 


TXA 






DC33 A8 


3777 


TAY 






DC34 C8 


3778 


INY 






DC35 38 


3779 


SEC 






DC36 E586 


3780 


SBC 


A86 




DC38 AA 


3781 


TAX 






DC39 9A 


3782 


TXS 






DC3A E8 


3783 


INX 






DC3B B90001 


3784 ] 


[NXJL LDA 


PIBASE.Y 




DC3E 9D0001 


3785 


STA 


PIBASE.X 




DC41 C8 


3786 


INY 






DC42 E8 


3787 


INX 






DC43 C682 


3788 


DEC 


A82 




DC45 D0F4 


3789 
3790 
3791 
3792 


BNZ 


INXJL 




DC47 A486 


3793 ] 


[NXJM LDY 


A86 




DC49 A900 


3794 


LDA 


#0 




DC4B 9D0001 


3795 ] 


[NXJN STA 


PIBASE.X 




DC4E E8 


3796 


INX 






DC4F 88 


3797 


DEY 






DC50 D0F9 


3798 
3799 


BNZ 


INXJN 






3800 


Go execute next P-code 






3801 








DC52 4C3BD2 


3802 


JMP 


UPDBY2 






3803 


.PAGE 'Set 


logic - Membership 




3804 










3805 


Extract size of set 






3806 








DC55 68 


3807 ] 


[NN PLA 






DC56 8582 


3808 


STA 


A82 




DC58 68 


3809 


PLA 






DC59 8583 


3810 
3811 


STA 


A82+1 






3812 


Multiply size by 2 






3813 








DC5B 0682 


3814 


ASL 


A82 




DC5D 2683 


3815 
3816 
3817 
3818 


ROL 


A82+1 




DC5F BA 


3819 


TSX 






DC60 8A 


3820 


TXA 






DC61 18 


3821 


CLC 






DC62 6582 


3822 


ADC 


A82 




DC64 A8 


3823 


TAY 






DC65 C8 


3824 


INY 






DC66 B90001 


3825 


LDA 


PIBASE.Y 




DC69 857C 


3826 


STA 


A7C 




DC6B C8 


3827 


INY 






DC6C B90001 


3828 


LDA 


PIBASE.Y 




DC6F 857D 


3829 


STA 


A7C+1 




DC71 8466 


3830 
3831 
3832 


STY 


SPTEMP 
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3833 






DC73 29FE 


3834 


AND 


#%11111110 


DC75 D031 


3835 
3836 
3837 
3838 


BNZ 


I NXJO 


DC77 A57C 


3839 


LDA 


A7C 


DC79 2907 


3840 


AND 


#%00000111 


DC7B 8575 


3841 


STA 


A74+1 


DC7D 667D 


3842 


ROR 


A7C+1 


DC7F A57C 


3843 


LDA 


A7C 


DC81 6A 


3844 


ROR 


A 


DC82 6A 


3845 


ROR 


A 


DC83 6A 


3846 


ROR 


A 


DC84 293F 


3847 


AND 


#%00111111 


DC86 8574 


3848 
3849 
3850 
3851 


STA 


A74 


DC88 C582 


3852 


CMP 


A82 


DC8A 101C 


3853 
3854 
3855 
3856 


BNM 


I NXJO 


DC8C BA 


3857 


TSX 




DC8D E8 


3858 


INX 




DC8E 8A 


3859 


TXA 




DC8F 6574 


3860 


ADC 


A74 


DC91 AA 


3861 


TAX 




DC92 BD0001 


3862 


LDA 


PIBASE.X 


DC95 A475 


3863 


LDY 


A74+1 


DC97 39B2DC 


3864 


AND 


BITTBL,Y 


DC9A F00C 


3865 
3866 
3867 
3868 


BZ 


I NXJO 


DC9C A666 


3869 


LDX 


SPTEMP 


DC9E 9A 


3870 
3871 


TXS 






3872 


Push 


TRUE 




3873 






DC9F A900 


3874 


LDA 


#<1 


DCAl 48 


3875 


PHA 




DCA2 A901 


3876 


LDA 


#>1 


DCA4 48 


3877 
3878 
3879 
3880 


PHA 




DCA5 4C4DD2 


3881 
3882 
3883 
3884 


JMP 


UPDBYl 


DCA8 A666 


3885 ] 


[NXJO LDX 


SPTEMP 


DCAA 9A 


3886 
3887 


TXS 






3888 


Push 


FALSE 




3889 






DCAB A900 


3890 


LDA 


#0 


DCAD 48 


3891 


PHA 




DCAE 48 


3892 


PHA 
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3893 




3894 




3895 


DCAF 4C4DD2 


3896 




3897 




3898 




3899 


DCB2 01 


3900 


DCB3 02 


3901 


DCB4 04 


3902 


DCB5 08 


3903 


DCB6 10 


3904 


DCB7 20 


3905 


DCB8 40 


3906 


DCB9 80 


3907 




3908 




3909 




3910 




3911 


DCBA 68 


3912 


DCBB 8580 


3913 


DCBD 68 


3914 


DCBE 8581 


3915 




3916 




3917 




3918 


DCC0 A581 


3919 


DCC2 48 


3920 


DCC3 A580 


3921 


DCC5 48 


3922 




3923 




3924 




3925 


DCC6 A581 


3926 


DCC8 48 


3927 


DCC9 A580 


3928 


DCCB 48 


3929 




3930 




3931 




3932 




3933 


DCCC 68 


3934 


DCCD 857A 


3935 


DCCF 68 


3936 


DCD0 857B 


3937 




3938 




3939 




3940 


DCD2 68 


3941 


DCD3 857C 


3942 


DCD5 68 


3943 


DCD6 857D 


3944 




3945 




3946 




3947 


DCD8 A57D 


3948 


DCDA 1003 


3949 




3950 



JMP 



UPDBYl 



BITTBL 


DB %00000001 


DB 


%00000010 


DB 


%00000100 


DB 


%00001000 


DB 


%00010000 


DB 


%00100000 


DB 


%01000000 


DB 


%10000000 



.PAGE 'Set logic - Build singleton set' 



SGS 



PLA 
STA 
PLA 
STA 



LDA 
PHA 
LDA 
PHA 



LDA 
PHA 
LDA 
PHA 



A80 
A80+1 

A80+1 
A80 

A80+1 
A80 



.PAGE 'Set logic - Build a subrange set' 
Pull high bound 



SRS 



PLA 




STA A7A 




PLA 




STA A7A+1 




Pull low bound 




PLA 




STA A7C 




PLA 




STA A7C+1 




Branch if low bound >= 





LDA A7C+1 




BNM INXJS 
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3951 










3952 








DCDC 4C8BDD 


3953 
3954 


JMP 


INXKD 






3955 


Branch if high bound < 512 




3956 








DCDF A57B 


3957 INXJS LDA 


A7A+1 




DCEl 29FE 


3958 


AND 


#$FE 




DCE3 F003 


3959 
3960 
3961 
3962 


BZ 


INXJT 




DCE5 4C8BDD 


3963 
3964 
3965 
3966 


JMP 


INXKD 




DCE8 38 


3967 INXJT SEC 






DCE9 A57A 


3968 


LDA 


A7A 




DCEB E57C 


3969 


SBC 


A7C 




DCED 857E 


3970 


STA 


A7E 




DCEF A57B 


3971 


LDA 


A7A+1 




DCFl E57D 


3972 


SBC 


A7C+1 




DCF3 857F 


3973 
3974 
3975 
3976 


STA 


A7E+1 




DCF5 A57F 


3977 


LDA 


A7E+1 




DCF7 1003 


3978 
3979 
3980 
3981 


BNM 


INXJU 




DCF9 4C84DD 


3982 
3983 
3984 
3985 


JMP 


INXKC 




DCFC A57C 


3986 ] 


[NXJU LDA 


A7C 




DCFE 290F 


3987 


AND 


#$0F 




DD00 0A 


3988 


ASL 


A 




DD01 8575 


3989 


STA 


A74+1 




DD03 A57C 


3990 


LDA 


A7C 




DD05 A204 


3991 


LDX 


#4 




DD07 667D 


3992 ] 


[NXJV ROR 


A7C+1 




DD09 6A 


3993 


ROR 


A 




DD0A CA 


3994 


DEX 






DD0B D0FA 


3995 


BNZ 


INXJV 




DD0D 8574 


3996 
3997 
3998 
3999 


STA 


A74 




DD0F A57A 


4000 


LDA 


A7A 




DDll 290F 


4001 


AND 


#$0F 




DD13 0A 


4002 


ASL 


A 




DD14 8577 


4003 


STA 


A76+1 




DD16 A57A 


4004 


LDA 


A7A 




DD18 A204 


4005 


LDX 


#4 




DDIA 667B 


4006 ] 


[NXJW ROR 


A7A+1 




DDIC 6A 


4007 


ROR 


A 




DDID CA 


4008 


DEX 






DDIE D0FA 


4009 


BNZ 


INXJW 




DD20 8576 


4010 


STA 


A76 





Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 84 of 292 



Apple ][ Pascal Technical Information 



DD22 38 
DD23 A576 
DD25 E574 
DD27 AA 



DD28 A477 
DD2A B994DD 
DD2D 8578 
DD2F B995DD 
DD32 8579 



DD34 E000 
DD36 F017 



DD38 A579 
DD3A 48 
DD3B A578 
DD3D 48 



DD3E A9FF 
DD40 8578 
DD42 8579 



DD44 D006 



DD46 A579 
DD48 48 
DD49 A578 
DD4B 48 



DD4C CA 
DD4D D0F7 



DD4F A578 
DD51 A475 
DD53 39B4DD 
DD56 8578 
DD58 A579 
DD5A 39B5DD 
DD5D 8579 



4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 



SEC 

LDA A76 

SBC A74 

TAX 

Construct leftmost 16 bits of set 

LDY A76+1 

LDA INXKF+2,Y 

STA A78 

LDA INXKF+3,Y 

STA A78+1 



CPX #0 

BE INXJZ 

Push left edge of set 

LDA A78+1 

PHA 

LDA A78 

PHA 

Get ready to fill center of set 

LDA #$FF 

STA A78 

STA A78+1 

Unconditional branch 

BNZ INXJY 



INXJX LDA A78+1 
PHA 

LDA A78 
PHA 

Branch if more 16 bit pieces to push 

INXJY DEX 

BNZ INXJX 

Construct rightmost 16 bits of set 

INXJZ LDA A78 

LDY A74+1 

AND INXKL,Y 

STA A78 

LDA A78+1 

AND INXKL+1,Y 

STA A78+1 
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4071 


Push 


right edge of set 






4072 






DD5F 


A579 


4073 


LDA 


A78+1 


DD61 


48 


4074 


PHA 




DD62 


A578 


4075 


LDA 


A78 


DD64 


48 


4076 
4077 


PHA 








4078 


Get 


ready for zero fil 






4079 






DD65 


A900 


4080 


LDA 


#0 


DD67 


8578 


4081 


STA 


A78 


DD69 


8579 


4082 
4083 


STA 


A78+1 






4084 


Branch if zero fill no 






4085 






DD6B 


A674 


4086 


LDX 


A74 


DD6D 


F009 


4087 
4088 


BZ 


INXKB 






4089 


Push 


zero fill 






4090 






DD6F 


A579 


4091 ] 


[NXKA LDA 


A78+1 


DD71 


48 


4092 


PHA 




DD72 


A578 


4093 


LDA 


A78 


DD74 


48 


4094 


PHA 




DD75 


CA 


4095 


DEX 




DD76 


D0F7 


4096 
4097 


BNZ 


INXKA 






4098 


Push 


set size 






4099 






DD78 


A900 


4100 ] 


[NXKB LDA 


#0 


DD7A 


48 


4101 


PHA 




DD7B 


18 


4102 


CLC 




DD7C 


A576 


4103 


LDA 


A76 


DD7E 


6901 


4104 


ADC 


#1 


DD80 


48 


4105 
4106 
4107 
4108 


PHA 




DD81 


4C4DD2 


4109 
4110 
4111 
4112 


JMP 


UPDBYl 


DD84 


A900 


4113 ] 


[NXKC LDA 


#0 


DD86 


48 


4114 


PHA 




DD87 


48 


4115 
4116 
4117 
4118 


PHA 




DD88 


4C4DD2 


4119 
4120 
4121 
4122 


JMP 


UPDBYl 


DD8B 


A900 


4123 ] 


[NXKD LDA 


#0 


DD8D 


48 


4124 


PHA 




DD8E 


48 


4125 
4126 
4127 
4128 


PHA 




DD8F 


4CB7D1 


4129 


JMP 


ERRl 
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DD92 
DD94 
DD96 
DD98 
DD9A 
DD9C 
DD9E 
DDA0 
DDA2 
DDA4 
DDA6 
DDA8 
DDAA 
DDAC 
DDAE 
DDB0 
DDB2 



DDB4 
DDB6 
DDB8 
DDBA 
ODBC 
DDBE 
DDC0 
DDC2 
DDC4 
DDC6 
DDC8 
DDCA 
DDCC 
DDCE 
DDD0 
DDD2 



0000 
0100 
0300 
0700 
0F00 
1F00 
3F00 
7F00 
FF00 
FF01 
FF03 
FF07 
FF0F 
FFIF 
FF3F 
FF7F 
FFFF 



FFFF 
FEFF 
FCFF 
F8FF 
F0FF 
E0FF 
C0FF 
80FF 
00FF 
00FE 
00FC 
00F8 
00F0 
00E0 
00C0 
0080 



DDD4 A906 
DDD6 1012 



DDD8 A904 
DDDA 100E 



DDDC A902 
DDDE 100A 



4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 

4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 



.PAGE 'Masks for packed field manipulation and for set construction' 



INXKF DW %0000000000000000 

DW %0000000000000001 

DW %0000000000000011 

DW %0000000000000111 

DW %0000000000001111 

DW %0000000000011111 

DW %0000000000111111 

DW %0000000001111111 

DW %0000000011111111 

DW %0000000111111111 

DW %0000001111111111 

DW %0000011111111111 

DW %0000111111111111 

DW %0001111111111111 

DW %0011111111111111 

DW %0111111111111111 

DW %1111111111111111 

AND masks 

INXKL DW %1111111111111111 

DW %1111111111111110 

DW %1111111111111100 

DW %1111111111111000 

DW %1111111111110000 

DW %1111111111100000 

DW %1111111111000000 

DW %1111111110000000 

DW %1111111100000000 

DW %1111111000000000 

DW %1111110000000000 

DW %1111100000000000 

DW %1111000000000000 

DW %1110000000000000 

DW %1100000000000000 

DW %1000000000000000 

.PAGE 'Compare logic' 



NEQ 



GRT 



LES 



LDA 
BNM 



LDA 

BNM 



LDA 
BNM 



#6 
INXKN 



#4 
INXKN 



#2 
INXKN 



$0000 
$0001 
$0003 
$0007 
$000F 
$001F 
$003F 
$007F 
$00FF 
$01FF 
$03FF 
$07FF 
$0FFF 
$1FFF 
$3FFF 
$7FFF 
$FFFF 



$FFFF 
$FFFE 
$FFFC 
$FFF8 
$FFF0 
$FFE0 
$FFC0 
$FF80 
$FF00 
$FE00 
$FC00 
$F800 
$F000 
$E000 
$C000 
$8000 
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DDE0 A905 


4189 


GEQ 


LDA 


#5 


DDE2 1006 


4190 
4191 
4192 
4193 




BNM 


INXKN 


DDE4 A903 


4194 


LEQ 


LDA 


#3 


DDE6 1002 


4195 
4196 
4197 
4198 


/ 
/ 
t 


BNM 


INXKN 


DDES A901 


4199 
4200 
4201 
4202 


EQU 

/ 


LDA 


#1 


DDEA 856C 


4203 


INXKN STA 


CMPTYP 




4204 


/ 








4205 


/ 








4206 


t 








4207 




RDAUX 






+ 




IFDEF 


BIG 




+ 




STA 


RAMRDS 




+ 




ENDIF 






4208 










4209 




Extract data type code 




4210 








DDEC A001 


4211 




LDY 


#1 


DDEE B158 


4212 
4213 
4214 
4215 
4216 




LDA 
RDMAIN 


(IPCPTR),Y 




+ 




IFDEF 


BIG 




+ 




STA 


RAMRDC 




+ 




ENDIF 






4217 










4218 




Branch 


if not code for reals 




4219 








DDF0 C902 


4220 




CMP 


#2 


DDF2 D003 


4221 
4222 


t 


BNE 


INXKS 




4223 


t 


Go compare reals 




4224 


t 






DDF4 4CDCDE 


4225 
4226 


t 


JMP 


CMPR 




4227 


t 


Branch 


if not code for strings 




4228 


t 






DDF7 C904 


4229 


INXKS CMP 


#4 


DDF9 D003 


4230 
4231 


t 


BNE 


INXKT 




4232 


t 


Go compare strings 




4233 


t 






DDFB 4C64DE 


4234 
4235 


t 


JMP 


CMPSTR 




4236 


t 


Branch 


if not code for booleans 




4237 


t 






DDFE C906 


4238 


INXKT CMP 


#6 


DE00 D003 


4239 
4240 




BNE 


INXKU 




4241 




Go compare booleans 




4242 
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DE02 


4C16DF 


4243 
4244 


JMP 


CMPB 








4245 


Branch 


if not code for sets 








4246 








DE05 


C908 


4247 ] 


[NXKU CMP 


#8 




DE07 


D003 


4248 
4249 


BNE 


I NXKV 








4250 


Go compare sets 








4251 








DE09 


4C27E0 


4252 
4253 


JMP 


CMPSET 








4254 


Branch 


if code for byte arra 


ys 






4255 








DE0C 


C90A 


4256 ] 


[NXKV CMP 


#10 




DE0E 


F002 


4257 
4258 


BE 


CMPBAR 








4259 


Default to compare words 








4260 








DE10 


D00C 


4261 
4262 
4263 
4264 


BNE 


I NXKX 




DE12 


A002 


4265 CMPBAR 


LDY #2 




DEM 


2055D1 


4266 


JSR 


EBIG2M 




DE17 


465F 


4267 


LSR 


OPRND+1 




DE19 


665E 


4268 


ROR 


OPRND 




DEIB 


4C23DE 


4269 
4270 
4271 
4272 


JMP 


I NXKY 




DEIE 


A002 


4273 ] 


[NXKX LDY 


#2 




DE20 


2055D1 


4274 
4275 
4276 
4277 


JSR 


EBIG2M 




DE23 


68 


4278 ] 


[NXKY PLA 






DE24 


8576 


4279 


STA 


A76 




DE26 


68 


4280 


PLA 






DE27 


8577 


4281 


STA 


A76+1 




DE29 


68 


4282 


PLA 






DE2A 


8574 


4283 


STA 


A74 




DE2C 


68 


4284 


PLA 






DE2D 


8575 


4285 
4286 


STA 


A74+1 








4287 


Increment P-code pointer 








4288 








DE2F 


E658 


4289 


INC 


IPCPTR 




DE31 


D002 


4290 


BNZ 


INXKZ 




DE33 


E659 


4291 
4292 
4293 
4294 


INC 


IPCPTR+1 




DE35 


A000 


4295 ] 


[NXKZ LDY 


#0 




DE37 


A65E 


4296 
4297 
4298 
4299 


LDX 


OPRND 




DE39 


4C4FDE 


4300 
4301 
4302 


JMP 


INXLE 
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DE3C B174 
DE3E D176 
DE40 D016 



DE42 E674 
DE44 D002 
DE46 E675 



DE48 E676 
DE4A D002 
DE4C E677 



DE4E CA 
DE4F D0EB 
DE51 C65F 
DE53 10E7 



DE55 4CC2DE 



DE58 B003 



DE5A 4CC6DE 



DE5D 4CBEDE 



DE60 7E00 
DE62 8000 



4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 



INXLA LDA 
CMP 
BNE 



(A74),Y 
(A76),Y 
INXLF 



Increment source pointer 



INC 
BNZ 
INC 



A74 

INXLC 

A74+1 



Increment destination pointer 



INXLC INC 
BNZ 
INC 



INXLD DEX 

INXLE BNZ 

DEC 

BNM 



JMP 



INXLF BC 



JMP 



INXLG JMP 



ADRA7E 
ADRA80 



A76 

INXLD 

A76+1 



INXLA 

OPRND+1 

INXLA 



ISEQ 



INXLG 



I SLOW 



ISHIGH 



DW 
DW 



A7E 
A80 



DE64 
DE65 
DE67 
DE68 
DE6A 
DE6C 
DE6E 
DE70 
DE72 
DE74 
DE77 



68 

8576 

68 

8577 

D012 

A576 

857F 

A901 

857E 

AD60DE 

8576 



4347 
4348 
4349 
4350 
4351 CMPSTR 



PAGE 'Compare logic - Strings' 



4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 



STA 
PLA 
STA 
BNZ 
LDA 
STA 
LDA 
STA 
LDA 
STA 



PLA 
A76 

A76+1 

INXLM 

A76 

A7E+1 

#1 

A7E 

ADRA7E 

A76 
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DE79 AD61DE 


4362 


LDA 


ADRA7E+1 


DE7C 8577 


4363 


STA 


A76+1 


DE7E 68 


4364 ] 


[NXLM PLA 




DE7F 8574 


4365 


STA 


A74 


DE81 68 


4366 


PLA 




DE82 8575 


4367 


STA 


A74+1 


DE84 D012 


4368 


BNZ 


INXLN 


DE86 A574 


4369 


LDA 


A74 


DE88 8581 


4370 


STA 


A80+1 


DE8A A901 


4371 


LDA 


#1 


DE8C 8580 


4372 


STA 


A80 


DE8E AD62DE 


4373 


LDA 


ADRA80 


DE91 8574 


4374 


STA 


A74 


DE93 AD63DE 


4375 


LDA 


ADRA80+1 


DE96 8575 


4376 


STA 


A74+1 


DE98 A000 


4377 ] 


[NXLN LDY 


#0 


DE9A B174 


4378 


LDA 


(A74),Y 


DE9C D176 


4379 


CMP 


(A76),Y 


DE9E 9002 


4380 


BL 


INXLO 


DEA0 B176 


4381 


LDA 


(A76),Y 


DEA2 AA 


4382 ] 


[NXLO TAX 




DEA3 E8 


4383 


INX 




DEA4 CA 


4384 ] 


[NXLP DEX 




DEA5 F00B 


4385 


BZ 


INXLQ 


DEA7 C8 


4386 


INY 




DEA8 B174 


4387 


LDA 


(A74),Y 


DEAA D176 


4388 


CMP 


(A76),Y 


DEAC F0F6 


4389 


BE 


INXLP 


DEAE B00E 


4390 


BGE 


ISHIGH 


DEB0 9014 


4391 


BL 


I SLOW 


DEB2 A000 


4392 ] 


[NXLQ LDY 


#0 


DEB4 B174 


4393 


LDA 


(A74),Y 


DEB6 D176 


4394 


CMP 


(A76),Y 


DEB8 900C 


4395 


BL 


ISLOW 


DEBA F006 


4396 


BE 


ISEO 


DEBC D000 


4397 
4398 
4399 
4400 


BNE 


ISHIGH 


DEBE A904 


4401 ] 


[SHIGH 


LDA #4 


DEC0 1006 


4402 
4403 
4404 
4405 


BNM 


INXMH 


DEC2 A901 


4406 ] 


[SEQ LDA 


#1 


DEC4 1002 


4407 
4408 
4409 
4410 


BNM 


INXMH 


DEC6 A902 


4411 ] 


[SLOW LDA 


#2 


DEC8 256C 


4412 ] 


[NXMH AND 


CMPTYP 


DECA F009 


4413 
4414 


BZ 


FALSEl 




4415 


Push 


TRUE onto stack 




4416 






DECC A900 


4417 


LDA 


#<1 


DECE 48 


4418 


PHA 




DECF A901 


4419 


LDA 


#>1 


DEDl 48 


4420 
4421 


PHA 





Apple ][ Pascal Technical Information 



Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 91 of 292 



Apple ][ Pascal Technical Information 



DED2 4C3BD2 



DED5 A900 
DED7 48 
DED8 48 



DED9 4C3BD2 



DEDC 
DEDE 
DEDF 
DEEl 
DEE2 
DEE4 
DEE6 
DEE8 
DEEA 
DEEC 
DEEE 
DEF0 
DEF2 
DEF4 
DEF6 
DEF8 
DEFA 
DEFC 
DEFE 
DF00 
DF02 
DF03 
DF05 
DF07 
DF09 
DF0A 
DF0C 
DF0E 
DFll 
DF13 



A207 

68 

9574 

CA 

10FA 

A001 

A980 

4578 

8578 

3006 

A574 

1002 

A0F4 

A980 

4574 

8574 

A200 

B574 

D578 

D007 

E8 

E004 

D0F5 

F0B9 

98 

3005 

B0B0 

4CC6DE 

90AB 

4CC6DE 



DF16 68 
DF17 2901 
DF19 8574 
DFIB 68 



4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 

4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 

4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 



JMP UPDBY2 
Push FALSE onto stack 
#0 



FALSEl LDA 
PHA 
PHA 



JMP UPDBY2 
.PAGE 'Compare logic - Reals' 



CMPR LDX 

INXML PLA 
STA 
DEX 
BNM 
LDY 
LDA 
EGR 
STA 
BM 
LDA 
BNM 
LDY 

INXMM LDA 
EGR 
STA 
LDX 

INXMG LDA 
CMP 
BNE 
INX 
CPX 
BNE 
BE 

INXMP TYA 
BM 
BC 
JMP 

INXMG BNC 
JMP 



#7 

A74,X 

INXML 

#1 

#$80 

A78 

A78 

INXMM 

A74 

INXMM 

#$F4 

#$80 

A74 

A74 

#0 

A74,X 

A78,X 

INXMP 

#4 

INXMG 

ISEG 

INXMG 

ISHIGH 

ISLGW 

ISHIGH 

ISLGW 



.PAGE 'Compare logic - Booleans' 

Use low order bit of first comparator 



CMPB PLA 
AND 
STA 
PLA 



#%00000001 
A74 



Use low order bit of second comparator 
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DFIC 


68 


4480 




PLA 




DFID 


2901 


4481 




AND 


#%00000001 


DFIF 


A8 


4482 




TAY 




DF20 


68 


4483 
4484 
4485 
4486 




PLA 




DF21 


98 


4487 




TYA 




DF22 


C574 


4488 




CMP 


A74 


DF24 


90A0 


4489 




BL 


IS LOW 


DF26 


F09A 


4490 
4491 
4492 
4493 




BE 


ISEQ 


DF28 


4CBEDE 


4494 




JMP 


ISHIGH 






4495 


;.PAGE 'Compare logic 






4496 












4497 












4498 








DF2B 


A902 


4499 


LESI 


LDA 


#2 


DF2D 


100E 


4500 
4501 
4502 
4503 




BNM 


INXMS 


DF2F 


A904 


4504 


GRTI 


LDA 


#4 


DF31 


100A 


4505 
4506 
4507 
4508 




BNM 


INXMS 


DF33 


A903 


4509 


LEQI 


LDA 


#3 


DF35 


1006 


4510 
4511 
4512 
4513 




BNM 


INXMS 


DF37 


A905 


4514 


GEQI 


LDA 


#5 


DF39 


1002 


4515 
4516 
4517 
4518 


t 
t 


BNM 


INXMS 


DF3B 


A906 


4519 
4520 
4521 
4522 


NEQI 


LDA 


#6 


DF3D 


856C 


4523 


INXMS STA 


CMPTYP 


DF3F 


68 


4524 




PLA 




DF40 


8576 


4525 




STA 


A76 


DF42 


68 


4526 




PLA 




DF43 


8577 


4527 




STA 


A76+1 


DF45 


68 


4528 




PLA 




DF46 


8574 


4529 




STA 


A74 


DF48 


68 


4530 




PLA 




DF49 


8575 


4531 




STA 


A74+1 


DF4B 


4577 


4532 




EOR 


A76+1 


DF4D 


3010 


4533 




BM 


INXMX 


DF4F 


A575 


4534 




LDA 


A74+1 


DF51 


C577 


4535 




CMP 


A76+1 


DF53 


D006 


4536 




BNE 


INXMW 


DF55 


A574 


4537 




LDA 


A74 


DF57 


C576 


4538 




CMP 


A76 
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DF59 


F02F 


4539 




BE 


INXNC 


DF5B 


9031 


4540 


INXMW BL 


INXND 


DF5D 


B027 


4541 




BGE 


INXNA 


DF5F 


A575 


4542 


INXMX LDA 


A74+1 


DF61 


302B 


4543 




BM 


INXND 


DF63 


1021 


4544 




BNM 


INXNA 






4545 


;.PAGE 'Compare logic - Int 






4546 












4547 












4548 












4549 


'ifnd 


ef GRIG 






4550 


EQUI 


TSX 








4551 




PLA 








4552 




CMP 


P1BASE+3,X 






4553 




BNE 


INXPP 






4554 




PLA 








4555 




CMP 


P1BASE+4,X 






4556 




BNE 


INXPQ 






4557 












4558 




Push 


TRUE onto stack 






4559 












4560 




LDA 


#<1 






4561 




STA 


P1BASE+4,X 






4562 




LDA 


#>1 






4563 




STA 


P1BASE+3,X 






4564 


t 










4565 


t 










4566 


t 










4567 




JMP 


UPDBYl 






4568 


t 










4569 


t 


Push 


FALSE onto stack 






4570 


t 










4571 


INXPP 


PLA 








4572 




LDA 


#0 






4573 




STA 


P1BASE+4,X 






4574 




STA 


P1BASE+3,X 






4575 


t 










4576 


t 










4577 


t 










4578 




JMP 


UPDBYl 






4579 


t 










4580 


t 


Push 


FALSE onto stack 






4581 


t 










4582 


INXPQ LDA 


#0 






4583 




STA 


P1BASE+4,X 






4584 




STA 


P1BASE+3,X 






4585 




JMP 


UPDBYl 






4586 












4587 




Push 


TRUE onto stack 






4588 












4589 


TRUE 


LDA 


#<1 






4590 




PHA 








4591 




LDA 


#>1 






4592 




PHA 








4593 












4594 












4595 












4596 




JMP 


UPDBYl 






4597 


else 
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4598 










4599 










4600 








DF65 68 


4601 


EQUI 


PLA 




DF66 8574 


4602 




STA 


A74 


DF68 68 


4603 




PLA 




DF69 8575 


4604 




STA 


A74+1 


DF6B 68 


4605 




PLA 




DF6C C574 


4606 




CMP 


A74 


DF6E D00E 


4607 




BNE 


INXMZ 


DF70 68 


4608 




PLA 




DF71 C575 


4609 




CMP 


A74+1 


DF73 D01F 


4610 
4611 




BNE 


FALSE2 




4612 




Push 


TRUE onto stack 




4613 








DF75 A900 


4614 


TRUE 


LDA 


#<1 


DF77 48 


4615 




PHA 




DF78 A901 


4616 




LDA 


#>1 


DF7A 48 


4617 
4618 
4619 
4620 


t 


PHA 




DF7B 4C4DD2 


4621 
4622 
4623 
4624 


t 
t 
t 


JMP 


UPDBYl 


DF7E 68 


4625 
4626 


INXMZ 

t 


PLA 






4627 


t 


Push 


FALSE onto stack 




4628 


t 






DF7F A900 


4629 




LDA 


#0 


DF81 48 


4630 




PHA 




DF82 48 


4631 
4632 
4633 
4634 




PHA 




DF83 4C4DD2 


4635 




JMP 


UPDBYl 




4636 


endi 


f 






4637 










4638 










4639 








DF86 A904 


4640 


INXNA LDA 


#4 


DF88 1006 


4641 
4642 
4643 
4644 




BNM 


INXNF 


DF8A A901 


4645 


INXNC 


LDA 


#1 


DF8C 1002 


4646 
4647 
4648 
4649 




BNM 


INXNF 


DF8E A902 


4650 


INXND 


LDA 


#2 


DF90 256C 


4651 


INXNF AND 


CMPTYP 


DF92 D0E1 


4652 
4653 




BNZ 


TRUE 




4654 




Push 


FALSE onto stack 




4655 








DF94 A900 


4656 


FALSE2 


LDA #0 


DF96 48 


4657 




PHA 
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DF97 48 



DF98 4C4DD2 



DF9B 68 
DF9C 858E 
DF9E 68 
DF9F 858F 



DFAl 
DFA2 
DFA3 
DFA5 
DFA7 
DFA8 
DFA9 
DFAA 
DFAC 
DFAD 
DFAE 
DFB0 
DFBl 
DFB4 
DFB5 
DFB7 
DFB9 
DFBB 
DFBD 
DFBE 
DFC0 
DFC2 
DFC3 
DFC4 
DFC5 
DFC7 
DFC9 
DFCA 



68 

0A 

857C 

857E 

68 

BA 

E8 

8676 

8A 

18 

657C 

AA 

BD0001 

0A 

857A 

C57E 

1002 

857E 

38 

E57C 

8586 

E8 

8A 

18 

657A 

8580 

E8 

8674 



DFCC E68E 
DFCE D002 
DFD0 E68F 
DFD2 6C8E00 



DFD5 A900 
DFD7 38 
DFD8 E586 



4658 
4659 
4660 
4661 
4662 

4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 

4709 
4710 
4711 
4712 
4713 
4714 
4715 



PHA 



JMP UPDBYl 
.PAGE 'Compare logic - Subroutine for Sets' 
Pull return address off stack and save it 



INXNI PLA 
STA 
PLA 
STA 



PLA 
ASL 
STA 
STA 
PLA 
TSX 
INX 
STX 
TXA 
CLC 
ADC 
TAX 
LDA 
ASL 
STA 
CMP 
BNM 
STA 
INXNJ SEC 
SBC 
STA 
INX 
TXA 
CLC 
ADC 
STA 
INX 
STX 



A8E 
A8E+1 



A 

A7C 

A7E 



A76 



A7C 

PIBASE.X 

A 

A7A 

A7E 

INXNJ 

A7E 

A7C 
A86 



A7A 
A80 

A74 



Return to caller 



INC 

BNZ 

INC 

INXNK JMP 



A8E 
INXNK 
A8E+1 
(A8E) 



.PAGE 'Compare logic - Subroutines used by subset/superset testing' 



SUPSET LDA 
SEC 
SBC A86 



#0 
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DFDA A8 
DFDB 4CE0DF 



DFDE A486 



DFE0 C000 
DFE2 F00C 
DFE4 300A 
DFE6 18 
DFE7 BD0001 
DFEA D005 
DFEC E8 
DEED 88 
DFEE D0F7 
DFF0 38 
DFFl 60 



DFF2 68 
DFF3 858C 
DFF5 68 
DFF6 858D 



DFF8 209BDF 



DFFB 
DFFD 
DFFF 
E001 
E002 
E005 
E007 
E008 
E009 
E00B 
E00D 
E00F 
E012 
E015 
E016 
E017 
E01A 
E01D 



A674 

A47E 

F00A 

68 

DD0001 

D016 

E8 

88 

D0F6 

A586 

3006 

20DEDF 

4C1EE0 

BA 

E8 

20D5DF 

4C1EE0 

18 



E01E E68C 
E020 D002 
E022 E68D 



4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 

4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 



TAY 

JMP INXNL 



SUBSET 



INXNL CPY 
BE 
BM 
CLC 

INXNM LDA 
BNZ 
INX 
DEY 
BNZ 

INXNN SEC 

INXNP RTS 



LDY A86 



#0 

INXNN 

INXNN 

PIBASE.X 
INXNP 



INXNM 



.PAGE 'Compare logic - Test if set A is equal to set B' 
Pull return address off stack and save it 



SETEQ PLA 
STA 
PLA 
STA 



JSR 



LDX 
LDY 
BZ 

INUAA PLA 
CMP 
BNE 
INX 
DEY 
BNZ 

INTZZ LDA 
BM 
JSR 
JMP 

INUAB TSX 
INX 
JSR 
JMP 

INUAC CLC 



A8C 
A8C+1 

INXNI 



A74 
A7E 
INTZZ 

PIBASE.X 
INUAC 



INUAA 

A86 

INUAB 

SUBSET 

INUAD 



SUPSET 
INUAD 



Increment return address 



INUAD INC 
BNZ 
INC 



A8C 

INUAF 

A8C+1 
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E024 6C8C00 



E027 A56C 
E029 C901 
E02B D003 



E02D 4C3DE0 



E030 C906 
E032 D003 



E034 4C43E0 



E037 C903 
E039 D02F 



E03B F012 



E03D 20F2DF 
E040 4C8CE0 



E043 20F2DF 
E046 B003 
E048 38 
E049 B001 
E04B 18 
E04C 4C8CE0 



E04F 209BDF 
E052 A674 
E054 A47E 
E056 F00C 
E058 68 
E059 49FF 
E05B 3D0001 
E05E D02B 
E060 E8 



4775 
4776 
4777 
4778 

4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 



Return to caller 
INUAF JMP (A8C) 

PAGE 'Compare logic - Sets' 

Branch if not testing for set equality 



CMPSET 



CMP 
BNE 



LDA 

#1 

INUAG 



CMPTYP 



Go test for set equality 

JMP INUAI 

Branch if not testing for set inequality 



INUAG CMP 
BNE 



#6 
IN UAH 



Go test for set inequality 

JMP INUAJ 

Branch if not testing for subset 



INUAH CMP 
BNE 



#3 
INUAP 



Go test if subset 
BE INUAM 
Set equality? 



INUAI JSR 
JMP 



SETEQ 
STOANS 



Set inequality? 



INUAJ JSR 

BC 

SEC 

BC 

INUAK CLC 

INUAL JMP 



SETEQ 
INUAK 

INUAL 

STOANS 



Subset? 



INUAM JSR 
LDX 
LDY 
BZ 

INUAN PLA 
EOR 
AND 
BNZ 
INX 



INXNI 
A74 
A7E 
INUAG 

#$FF 

PIBASE.X 

INUAS 
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E061 88 
E062 D0F4 
E064 20DEDF 
E067 4C8CE0 



E06A 
E06D 
E06F 
E070 
E071 
E073 
E075 
E078 
E07A 
E07D 
E07F 
E080 
E081 
E083 
E085 
E088 
E08B 



209BDF 

A474 

BA 

E8 

A57E 

F010 

B90001 

49FF 

3D0001 

D00C 

E8 

C8 

C67E 

D0F0 

20D5DF 

4C8CE0 

18 



E08C A680 
E08E 9A 



E08F A000 

E091 8485 

E093 9001 

E095 C8 

E096 8484 



E098 A585 
E09A 48 
E09B A584 
E09D 48 



E09E 4C3BD2 



E0A1 68 
E0A2 858E 
E0A4 68 
E0A5 858F 



4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 

4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 



DEY 

BNZ 

INUAO JSR 

JMP 



INUAN 

SUBSET 

STOANS 



Superset? 



INUAP JSR 
LDY 
TSX 
INX 
LDA 
BZ 

INUAQ LDA 
EOR 
AND 
BNZ 
INX 
INY 
DEC 
BNZ 

INUAR JSR 
JMP 

INUAS CLC 



INXNI 
A74 



A7E 

INUAR 

PIBASE.Y 

#$FF 

P1BASE,X 

INUAS 



A7E 
INUAQ 
SUPSET 
STOANS 



Restore stack pointer 



STOANS 



LDX 



A80 



TXS 



Convert carry flag to TRUE or FALSE 



LDY 
STY 
BNC 
INY 
INUAY STY 



#0 

A85 

INUAY 



A84 

Push boolean result 

LDA A85 

PHA 

LDA A84 

PHA 

JMP UPDBY2 
.PAGE 'Subroutine for external procedure call' 
Pull return address off stack and save it 



CALLX PLA 
STA 
PLA 
STA 



A8E 
A8E+1 
Extract segment data from intrinsic unit table 
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E0A7 
E0A9 
E0AA 
E0AB 
E0AE 
E0B0 
E0B2 
E0B5 
E0B7 



A586 

0A 

A8 

B99EBD 

8582 

8574 

B99FBD 

8583 

8575 



E0B9 4CD2E0 



E0BC 68 

E0BD 858E 

E0BF 68 

E0C0 858F 



E0C2 A556 
E0C4 8582 
E0C6 8574 
E0C8 A557 
E0CA 8583 
E0CC 8575 



E0CE A9FF 
E0D0 8586 



E0D2 A55C 
E0D4 857A 
E0D6 A55D 
E0D8 857B 



4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 

4908 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 

4935 
4936 
4937 
4938 
4939 
+ 
+ 
+ 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 



LDA 
ASL 
TAY 
LDA 
STA 
STA 
LDA 
STA 
STA 



SEGNO 
A 

lUTBL.Y 

A82 

A74 

IUTBL+1,Y 

A82+1 

A74+1 



* JSR INUBE 

* RTS 

JMP INUBE 

PAGE 'Call all procedures except external' 
Pull return address off stack and save it 



CALAXX 



STA 
PLA 
STA 



LDA 
STA 
STA 
LDA 
STA 
STA 



LDA 
STA 



JSR 
RTS 



PLA 
A8E 

A8E+1 



SEGPTR 

A82 

A74 

SEGPTR+1 

A82+1 

A74+1 



#-1 
SEGNO 



INUBE 



.PAGE 'Common logic for subroutine used by all procedure calls' 

Initialize working program stack pointer 

INUBE RDAUX 

IFDEF BIG 

STA RAMRDS 
ENDIF 

LDA PSKPTR 

STA A7A 

LDA PSKPTR+1 

STA A7A+1 
ifdef ORIG 

Update P-code pointer 
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E0DA A558 4948 LDA IPCPTR 

E0DC 18 4949 CLC 

E0DD 6902 4950 ADC #2 

E0DF 8558 4951 STA IPCPTR 

E0E1 9002 4952 BNC INUBF 

E0E3 E659 4953 INC IPCPTR+1 

4954 INUBF 

4955 endif 
4956 



Set pointer into jump table 



4957 

4958 

E0E5 A574 4959 LDA A74 

E0E7 38 4960 CLB 

E0E8 E578 4961 SBB PROCNO 

E0EA 8574 4962 STA A74 

E0EC B002 4963 BNB INUBG 

E0EE C675 4964 DEC A74+1 
E0F0 A574 4965 INUBG LDA A74 

E0F2 38 4966 CLB 

E0F3 E578 4967 SBB PROCNO 

E0F5 8574 4968 STA A74 

E0F7 B002 4969 BNB INUBH 

E0F9 C675 4970 DEC A74+1 

4971 

4972 

4973 

E0FB A000 4974 INUBH LDY #0 

E0FD 38 4975 CLB 

E0FE A574 4976 LDA A74 

E100 F174 4977 SBB (A74),Y 

E102 857C 4978 STA A7C 

E104 A575 4979 LDA A74+1 

E106 C8 4980 INY 

E107 F174 4981 SBB (A74),Y 

E109 857D 4982 STA A7C+1 

4983 

4984 

4985 

E10B A000 4986 LDY #0 

E10D B17C 4987 LDA (A7C),Y 

4988 RDMAIN 

+ IFDEF BIG 

+ STA RAMRDC 

+ ENDIF 

E10F D03D 4989 BNZ INUBN 



Subtract procedure number times two from A74PTR 



Branch if procedure not coded in assembly 



4990 ;.PAGE 'Assembly language procedure' 

4991 ifndef ORIG 
4992 



4993 
4994 

4995 LDA IPCPTR 

4996 CLC 

4997 ADC #2 

4998 STA IPCPTR 

4999 BNC INUBF 

5000 INC IPCPTR+1 

5001 INUBF 

5002 else 

Elll A586 5003 LDA SEGNO 
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E113 
E115 
E116 
E117 
E118 
EllB 
EllD 
E120 
E122 



3010 

0A 

AA 

38 

BDIEBD 

E901 

9D1EBD 

B003 

DEIFBD 



E125 A57C 
E127 38 
E128 E902 
E12A 857C 
E12C B002 
E12E C67D 



E130 
E131 
E133 
E135 
E137 
E138 
E13A 
E13C 



38 

A57C 

F17C 

8590 

C8 

A57D 

F17C 

8591 



E13E AD4DE1 

E141 48 

E142 AD4CE1 

E145 48 



E146 6C9000 



5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 



5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 



BM 

ASL 

TAX 

CLB 

LDA 

SBB 

STA 

BNB 

DEC 



INUBI 
A 



SUCTBL.X 

#1 

SUCTBL.X 

INUBI 

SUCTBL+1,X 



INUBI 
endif 



Subtract 2 from A7CPTR 

ifndef GRIG 

RDAUX 

JSR S2A7C 
else 

LDA A7C 

CLB 

SBB #2 

STA A7C 

BNB INUBK 

DEC A7C+1 
INUBK 
endif 

Extract address of procedure 

CLB 

LDA A7C 
SBB (A7C),Y 
STA A90 
INY 

LDA A7C+1 
SBB (A7C),Y 
STA A90+1 
RDMAIN 
IFDEF BIG 
STA RAMRDC 
ENDIF 
ifndef GRIG 



LDA 
STA 



SEGNG 
HSEGNG 



endif 



LDA 


INUBL+1 


PHA 




LDA 


INUBL 


PHA 





JMP 



(A90) 
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E149 4C53D2 



E14C 48E1 



E14E A57C 

E150 38 

E151 E908 

E153 857C 

E155 B002 

E157 C67D 



E159 38 
E15A A000 
E15C A57A 



E15E F17C 
E160 857E 
E162 A57B 
E164 C8 
E165 F17C 



E167 857F 
E169 9040 



E16B A003 



5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 

5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 



5101 
5102 
5103 
5104 
5105 
5106 
+ 
+ 
+ 
5107 
5108 
5109 
5110 
5111 
5112 
5113 



AE149 
ifndef GRIG 

LDA HSEGNO 
BM JXEMl 
JSR UNLSEG 
JXEMl 
endif 



JMP 



EXECPC 



INUBL DW AE149-1 
ifndef GRIG 



HSEGNG 
endif 



DS 



PAGE 'Calculate address of activation record' 

Alter pointer to point at size of activation record 
A7C 



INUBN LDA 
CLB 
SBB 
STA 
BNB 
DEC 



#8 
A7C 
INUBG 
A7C+1 



Address = program stack pointer - size of activation record 

INUBG CLB 

LDY #0 

LDA A7A 

RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

SBB (A7C),Y 

STA ARPTR 

LDA A7A+1 

INY 

SBB (A7C),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

STA ARPTR+1 

BB JGGMEl 

Branch if parameter size > 255 

LDY #3 
RDAUX 
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+ 
+ 



E16D B17C 



E16F D03A 



E171 88 
E172 A57E 
E174 38 



E175 F17C 



E177 857E 
E179 B008 
E17B A57F 
E17D E900 
E17F 857F 
E181 9028 



5114 
5115 



5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 



5124 
5125 



+ 
+ 



5126 
5127 
5128 
5129 
5130 
5131 



IFDEF BIG 

STA RAMRDS 

ENDIF 

LDA (A7C),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

BNZ JOOMEl 

Subtract parameter size 



DEY 

LDA 

CLB 

RDAUX 

IFDEF 

STA 

ENDIF 

SBB 

RDMAIN 

IFDEF 

STA 

ENDIF 

STA 

BNB 

LDA 

SBB 

STA 

BB 



ARPTR 



BIG 

RAMRDS 

(A7C),Y 

BIG 
RAMRDC 

ARPTR 

INUBP 

ARPTR+1 

#0 

ARPTR+1 

JOOMEl 



E183 A57E 



E185 38 
E186 E90C 
E188 857E 
E18A A57F 



E18C E900 
E18E 857F 
E190 9019 



E192 38 
E193 A57E 
E195 E55A 
E197 A57F 
E199 E55B 
E19B B011 



5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 



.PAGE 

Subtract size of markstack 

INUBP LDA ARPTR 
ifndef ORIG 

STA DSTPTR 
endif 

CLB 

SBB #12 

STA ARPTR 

LDA ARPTR+1 
ifndef ORIG 

STA DSTPTR+1 
endif 

SBB #0 

STA ARPTR+1 

BB JOOMEl 

Branch if not out of memory 



CLB 
LDA 
SBB 
LDA 
SBB 
BNB 



ARPTR 

HPPTR 

ARPTR+1 

HPPTR+1 

INUBU 
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E19D 2090D1 



E1A0 38 

ElAl A57E 

E1A3 E55A 

E1A5 A57F 

E1A7 E55B 

E1A9 BOOB 



ElAB 4CC3D1 



ElAE A002 



5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 

5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 



JSR 


INXAZ 


; Branch 


if not out of memory 


CLB 




LDA 


ARPTR 


SBB 


HPPTR 


LDA 


ARPTR+1 


SBB 


HPPTR+1 


BNB 


INUBU 


; Go to 


error logic 



; .PAGE 

; Set initial displacement 

INUBU LDY #2 

; Save markstack pointer 

'ifndef GRIG 



LDA 
STA 
INY 
LDA 
STA 
INY 



MSPTR 

( ARPTR ),Y 

MSPTR+1 
( ARPTR ),Y 



Save jump table pointer 



LDA 
STA 
INY 
LDA 
STA 
INY 



JTBPTR 
( ARPTR ),Y 

JTBPTR+1 
( ARPTR ),Y 



Save segment pointer 



LDA 
STA 
INY 
LDA 
STA 
INY 



SEGPTR 
( ARPTR ),Y 

SEGPTR+1 
( ARPTR ),Y 



Save adjusted P-code pointer 



CLC 
LDA 
ADC 
STA 
INY 
LDA 
ADC 
STA 



IPCPTR 

#2 

( ARPTR ),Y 

IPCPTR+1 

#0 

( ARPTR ),Y 
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E1B0 B95000 

E1B3 917E 

E1B5 C8 

E1B6 C00A 

E1B8 D0F6 



ElBA 18 
EIBB A57E 
ElBD 690C 
ElBF 856A 
ElCl A57F 
E1C3 6900 
E1C5 856B 



E1C7 A002 
E1C9 B17C 



EICB A000 
EICD AA 



EICE 4CD6E1 
ElDl 68 
E1D2 916A 
E1D4 C8 
E1D5 CA 
E1D6 D0F9 



E1D8 BA 

E1D9 8A 
EIDA A00A 
EIDC 917E 



EIDE A57C 

E1E0 18 

ElEl 6906 

E1E3 8574 

E1E5 A57D 

E1E7 6900 



5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 



+ 
+ 



5244 
5245 
5246 



5247 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
5265 
5266 
5267 
5268 
5269 
5270 
5271 
5272 
5273 



Save markstack, jump table, segment and P-code pointers 

else 

INUBW LDA MSPTR-2,Y 

STA (ARPTR),Y 
INY 

CPY #10 

BNE INUBW 

Calculate address of parameter storage area 

CLC 

LDA ARPTR 

ADC #12 

STA DSTPTR 

LDA ARPTR+1 

ADC #0 

STA DSTPTR+1 
endif 

Move size of parameters to 'X' register 

RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

LDY #2 

LDA (A7C),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

LDY #0 

TAX 

Pull parameters from stack and save them 

JMP INUBY 
INUBX PLA 

STA (DSTPTR),Y 

INY 

DEX 

INUBY BNZ INUBX 

Save stack pointer 

TSX 

TXA 

LDY #10 

STA ( ARPTR ),Y 



LDA 
CLC 
ADC 
STA 
LDA 
ADC 



A7C 

#6 
A74 
A7C+1 
#0 
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E1E9 


8575 


5274 
5275 


STA 


A74+1 






5276 


Set P- 


code start address 






5277 






ElEB 


A000 


5278 


LDY 


#0 


ElED 


38 


5279 
5280 


CLB 
RDAUX 








+ 


IFDEF 


BIG 






+ 


STA 


RAMRDS 






+ 


ENDIF 




ElEE 


A574 


5281 


LDA 


A74 


E1F0 


F174 


5282 


SBB 


(A74),Y 


E1F2 


8558 


5283 


STA 


IPCPTR 


E1F4 


A575 


5284 


LDA 


A74+1 


E1F6 


C8 


5285 


INY 




E1F7 


F174 


5286 


SBB 


(A74),Y 


E1F9 


8559 


5287 
5288 


STA 
RDMAIN 


IPCPTR+1 






+ 


IFDEF 


BIG 






+ 


STA 


RAMRDC 






+ 


ENDIF 








5289 










5290 


Set JL 


mp table pointer 






5291 






EIFB 


A57C 


5292 


LDA 


A7C 


EIFD 


18 


5293 


CLC 




EIFE 


6908 


5294 


ADC 


#8 


E200 


8554 


5295 
5296 


STA 
ifdef GRIG 


JTBPTR 


E202 


8DEEBD 


5297 
5298 


STA 

endif 


SYCJTB 


E205 


A57D 


5299 


LDA 


A7C+1 


E207 


6900 


5300 


ADC 


#0 


E209 


8555 


5301 
5302 


STA 
ifdef GRIG 


JTBPTR+1 


E20B 


8DEFBD 


5303 
5304 
5305 


STA 

endif 


SYCJTB+1 






5306 


Set me 


rkstack address 






5307 






E20E 


A57E 


5308 


LDA 


ARPTR 


E210 


8552 


5309 


STA 


MSPTR 


E212 


8DECBD 


5310 


STA 


SYCMS 


E215 


A57F 


5311 


LDA 


ARPTR+1 


E217 


8553 


5312 


STA 


MSPTR+1 


E219 


8DEDBD 


5313 
5314 
5315 
5316 


STA 


SYCMS+1 


E21C 


A57E 


5317 


LDA 


ARPTR 


E21E 


38 


5318 


CLB 




E21F 


E902 


5319 


SBB 


#PRGCV 


E221 


8576 


5320 


STA 


A76 


E223 


A57F 


5321 


LDA 


ARPTR+1 


E225 


E900 


5322 


SBB 


#0 


E227 


8577 


5323 
5324 
5325 
5326 


STA 


A76+1 


E229 


A000 


5327 


LDY 


#0 
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E22B A55C 
E22D 9176 
E22F C8 
E230 A55D 
E232 9176 



E234 A576 
E236 855C 
E238 A577 
E23A 855D 



E23C A582 

E23E 8556 

E240 8DF0BD 

E243 A583 

E245 8557 

E247 8DF1BD 



E24A E68E 
E24C D002 
E24E E68F 



E250 6C8E00 



5328 
5329 
5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5348 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 

5385 
5386 



ifdef BIG 



LDA 
STA 
INY 
LDA 
STA 
INY 



BZ5E 
(A76),Y 

BZ5E+1 
(A76),Y 



endif 



LDA 
STA 
INY 
LDA 
STA 



PSKPTR 
(A76),Y 

PSKPTR+1 
(A76),Y 



LDA A76 

STA PSKPTR 

LDA A76+1 

STA PSKPTR+1 
ifdef BIG 



LDA 
STA 
STA 



#0 

BZ5E 

BZ5E+1 



endif 



LDA A82 

STA SEGPTR 
ifdef GRIG 

STA SYCSEG 
endif 

LDA A82+1 

STA SEGPTR+1 
ifdef GRIG 

STA SYCSEG+1 
endif 

Increment return address 



INC 
BNZ 
INC 



A8E 

INUBZ 

A8E+1 



Return to caller 
INUBZ JMP (A8E) 
;.PAGE 'Call intermediate procedure' 
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5387 
5388 
5389 



E253 A001 
E255 B158 



E257 8578 



E259 20BCE0 



E25C A009 
E25E B17C 



E260 8584 



E262 C684 



E264 A552 
E266 8588 
E268 A553 
E26A 8589 



E26C 4C7BE2 



E26F A002 

E271 B188 

E273 AA 

E274 C8 

E275 B188 

E277 8589 

E279 8688 



+ 
+ 



5390 
5391 
5392 



+ 
+ 



5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 



5402 
5403 
5404 



5405 
5406 
5407 
5408 
5409 
5410 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5428 
5429 
5430 

5431 
5432 
5433 



; Extract procedure number 

CIP RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

LDY #1 

LDA (IPCPTR),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

STA PROCNO 



JSR CALAXX 

Get lex level 

CPCOMA RDAUX 

IFDEF BIG 

STA RAMRDS 
ENDIF 

LDY #9 

LDA (A7C),Y 
RDMAIN 

IFDEF BIG 

STA RAMRDC 
ENDIF 

STA MLEXLV 

Decrement lex level 

DEC MLEXLV 



; Copy 


markstack 


LDA 


MSPTR 


STA 


TMSPTR 


LDA 


MSPTR+1 


STA 


TMSPTR+1 



JMP INUCC 

Extract address of next markstack in chain 

INUCB LDY #2 

LDA (TMSPTR),Y 

TAX 

INY 

LDA (TMSPTR),Y 

STA TMSPTR+1 

STX TMSPTR 



.PAGE 



Extract jump table pointer from markstack 
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E27B A004 
E27D B188 
E27F 858C 
E281 C8 
E282 B188 
E284 858D 



E286 A001 



E288 B18C 



E28A C584 
E28C D0E1 



E28E 
E290 
E292 
E294 
E296 
E298 
E29A 
E29C 



A002 
B188 
A000 
9152 
A003 
B188 
A001 
9152 



E29E 4C53D2 



E2A1 A001 
E2A3 B158 



E2A5 8578 



E2A7 20BCE0 



5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 



5446 
5447 



5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 

5468 
5469 
5470 
5471 
5472 



INUCC LDY 
LDA 
STA 
INY 
LDA 
STA 



#4 

(TMSPTR),Y 

TJTPTR 

(TMSPTR),Y 
TJTPTR+1 



Extract lex level 

LDY #1 

RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

LDA (TJTPTR), Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

Branch if not at correct lex level 



CMP 
BNE 



MLEXLV 
INUCB 



Set static link of markstack 



LDY 
LDA 
LDY 
STA 
LDY 
LDA 
LDY 
STA 



#2 

(TMSPTR),Y 

#0 

(MSPTR),Y 

#3 

(TMSPTR),Y 

#1 

(MSPTR),Y 



+ 
+ 



5473 
5474 
5475 



+ 
+ 
+ 



5476 
5477 
5478 
5479 
5480 



Go execute first P-code of called procedure 

JMP EXECPC 

.PAGE 'Call local procedure' 

Extract procedure number 

CLP RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

LDY #1 

LDA (IPCPTR),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

STA PROCNO 



JSR 



CALAXX 
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5481 






5482 






5483 


E2AA 


A002 


5484 


E2AC 


B17E 


5485 


E2AE 


A000 


5486 


E2B0 


917E 


5487 


E2B2 


A003 


5488 


E2B4 


B17E 


5489 


E2B6 


A001 


5490 


E2B8 


917E 


5491 
5492 
5493 
5494 


E2BA 


4C53D2 


5495 

5496 
5497 
5498 
5499 
5500 
+ 
+ 
+ 


E2BD 


A001 


5501 


E2BF 


B158 


5502 
5503 

+ 
+ 
+ 


E2C1 


8578 


5504 
5505 
5506 
5507 


E2C3 


20BCE0 


5508 
5509 
5510 
5511 


E2C6 


A000 


5512 


E2C8 


A550 


5513 


E2CA 


917E 


5514 


E2CC 


A551 


5515 


E2CE 


C8 


5516 


E2CF 


917E 


5517 
5518 
5519 
5520 


E2D1 


4C53D2 


5521 

5522 
5523 
5524 
5525 
5526 
+ 
+ 
+ 


E2D4 


A002 


5527 


E2D6 


B158 


5528 
5529 



Set static link of markstack to old markstack pointer 



LDY 
LDA 
LDY 
STA 
LDY 
LDA 
LDY 
STA 



#2 

(ARPTR),Y 

#0 

(ARPTR),Y 

#3 

(ARPTR),Y 

#1 

(ARPTR),Y 



Go execute first P-code of called procedure 

JMP EXECPC 

.PAGE 'Call global procedure' 

Extract procedure number 

CGP RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

LDY #1 

LDA (IPCPTR),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

STA PROCNO 

I 
t 

JSR CALAXX 

t 

; Set static link of markstack to BASE 



LDY 


#0 




LDA 


BASPTR 




STA 


(ARPTR), 


Y 


LDA 


BASPTR+1 




INY 






STA 


(ARPTR), 


Y 


; Go execute fir 


5t 



JMP EXECPC 

.PAGE 'Call external or base procedure' 

Extract external procedure number 

CXP RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

LDY #2 

LDA (IPCPTR),Y 

RDMAIN 
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E2D8 8578 



E2DA A001 
E2DC B158 



E2DE 8586 



E2E0 F003 



E2E2 20A5E4 



E2E5 E658 
E2E7 D002 
E2E9 E659 



E2EB 20A1E0 



E2EE A009 
E2F0 B17C 



E2F2 F00E 
E2F4 300C 



E2F6 4C5CE2 



5530 
5531 
5532 
5533 
5534 



+ IFDEF BIG 

+ STA RAMRDC 
+ ENDIF 

STA PROCNO 

Extract segment number 

RDAUX 

+ IFDEF BIG 

+ STA RAMRDS 
+ ENDIF 

5535 LDY #1 

5536 LDA (IPCPTR),Y 

5537 RDMAIN 

+ IFDEF BIG 

+ STA RAMRDC 
+ ENDIF 

STA SEGNO 



5538 
5539 
5540 
5541 
5542 
5543 
5544 
5545 
5546 
5547 
5548 
5549 

5550 INUCD INC 

5551 BNZ 

5552 INC 
5553 
5554 
5555 

5556 INUCE JSR 
5557 



Branch if segment number is zero 

BZ INUCD 

Load segment if not already in memory 

JSR LODSEG 

Adjust PCode pointer for presence of segment number 



IPCPTR 

INUCE 

IPCPTR+1 



5558 
5559 
5560 



CALLX 
Branch if lex level is zero or minus one 



+ 
+ 
+ 



5561 
5562 
5563 



+ 
+ 
+ 



5564 
5565 
5566 
5567 
5568 
5569 
5570 



RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

LDY #9 

LDA (A7C),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

BZ CPCOMB 

BM CPCOMB 

Go use 'call intermediate procedure' logic 

JMP CPCOMA 






5571 
5572 
5573 



Extract base procedure number 
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5574 CBP 







+ 






+ 






+ 


E2F9 


A001 


5575 


E2FB 


B158 


5576 
5577 

+ 
+ 
+ 


E2FD 


8578 


5578 
5579 
5580 
5581 


E2FF 


20BCE0 


5582 

5583 
5584 
5585 
5586 


E302 


A551 


5587 


E304 


48 


5588 


E305 


A550 


5589 


E307 


48 


5590 
5591 
5592 
5593 


E308 


BA 


5594 


E309 


8A 


5595 


E30A 


A00A 


5596 


E30C 


917E 


5597 
5598 
5599 
5600 


E30E 


A000 


5601 


E310 


B150 


5602 


E312 


917E 


5603 


E314 


C8 


5604 


E315 


B150 


5605 


E317 


917E 


5606 
5607 
5608 
5609 


E319 


A57E 


5610 


E31B 


8550 


5611 


E31D 


8DEABD 


5612 


E320 


A57F 


5613 


E322 


8551 


5614 


E324 


8DEBBD 


5615 
5616 
5617 
5618 


E327 


4C53D2 


5619 

5620 
5621 
5622 
5623 


E32A 


A00A 


5624 


E32C 


B152 


5625 



RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

LDY #1 

LDA (IPCPTR),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

STA PROCNO 



JSR CALAXX 
.PAGE 'Common call procedure logic' 
Push BASE pointer onto stack 



CPCOMB 



PHA 
LDA 
PHA 



LDA BASPTR+1 
BASPTR 



Save stack pointer 



TSX 
TXA 
LDY 
STA 



#10 
(ARPTR),Y 



Set static link of markstack to static link of BASE'S markstack 



LDY 
LDA 
STA 
INY 
LDA 
STA 



LDA 
STA 
STA 
LDA 
STA 
STA 



#0 

(BASPTR),Y 

(ARPTR),Y 

(BASPTR),Y 
(ARPTR),Y 



ARPTR 

BASPTR 

SYCBAS 

ARPTR+1 

BASPTR+1 

SYCBAS+1 



Go execute first P-code of called procedure 
JMP EXECPC 
.PAGE 'Return from procedure' 
Restore stack pointer 



RBP 



LDY 
LDA 



#10 
(MSPTR),Y 
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E32E AA 
E32F 9A 



E330 68 

E331 8550 

E333 8DEABD 

E336 68 

E337 8551 

E339 8DEBBD 



E33C 4C45E3 



E33F A00A 
E341 B152 
E343 AA 
E344 9A 



E345 
E347 
E348 
E34A 
E34C 
E34E 
E350 



A552 

38 

E902 

8574 

A553 

E900 

8575 



E352 A000 



E354 B174 
E356 855C 
E358 C8 
E359 B174 
E35B 855D 



5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 



TAX 
TXS 

Restore BASE 



PLA 
STA 
STA 
PLA 
STA 
STA 



BASPTR 
SYCBAS 

BASPTR+1 
SYCBAS+1 



JMP INUCH 

Restore stack pointer 



RNP 



LDY 
LDA 
TAX 
TXS 



INUCH LDA 
CLB 
SBB 
STA 
LDA 
SBB 
STA 



#10 
(MSPTR),Y 



MSPTR 

#PROCV 

A74 

MSPTR+1 

#0 

A74+1 



LDY #0 
ifdef BIG 



LDA 
STA 
INY 
LDA 
STA 
INY 



(A74),Y 
BZ5E 

(A74),Y 
BZ5E+1 



endif 



LDA 


(A74),Y 


STA 


PSKPTR 


INY 




LDA 


(A74),Y 


STA 


PSKPTR+1 


; Get count of wo 


RDAUX 




IFDEF 


BIG 
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+ 
+ 



E35D A001 
E35F B158 



E361 0A 

E362 18 

E363 690B 

E365 AS 



E366 C00B 
E368 F007 
E36A B152 
E36C 48 
E36D 88 
E36E 4C66E3 



E371 A006 
E373 B152 
E375 8574 
E377 C8 
E378 B152 
E37A 8575 



E37C A000 
E37E B156 



5685 
5686 
5687 



5688 
5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
5708 
5709 
5710 
5711 
5712 
5713 
5714 
5715 
5716 
5717 
5718 
5719 
5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 
5730 
5731 
+ 
+ 
+ 
5732 
5733 
5734 
5735 
5736 



STA RAMRDS 
ENDIF 
LDY #1 
LDA (IPCPTR),Y 
RDMAIN 
IFDEF BIG 
STA RAMRDC 
ENDIF 
ifndef GRIG 

Branch if not function 



BZ INUCJ 



endif 

Initialize loop control register 

ASL A 

CLC 

ADC #11 

TAY 

Push function result onto evaluation stack 

INUCI 
ifndef GRIG 

LDA (MSPTR),Y 

PHA 

DEY 

LDA (MSPTR),Y 

PHA 

DEY 

CPY #11 

BNE INUCI 



else 



CPY #11 

BE INUCJ 

LDA (MSPTR),Y 

PHA 

DEY 

JMP INUCI 



endif 



INUCJ LDY #6 

LDA (MSPTR),Y 

STA A74 

INY 

LDA (MSPTR),Y 

STA A74+1 

RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 



LDY 
LDA 



#0 
(SEGPTR),Y 
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E380 D174 



E382 F011 



E384 20F7E5 



E387 A574 
E389 8556 

E38B 8DF0BD 

E38E A575 
E390 8557 

E392 8DF1BD 



E395 A004 

E397 B152 

E399 8554 

E39B 8DEEBD 

E39E C8 

E39F B152 

E3A1 8555 

E3A3 8DEFBD 



E3A6 A008 
E3A8 B152 
E3AA 8558 
E3AC C8 
E3AD B152 
E3AF 8559 



E3B1 A003 

E3B3 B152 

E3B5 AA 

E3B6 88 

E3B7 B152 

E3B9 8552 

E3BB 8DECBD 

E3BE 8653 

E3C0 8EEDBD 



5737 
5738 



5739 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 
5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 
5770 
5771 
5772 
5773 
5774 
5775 
5776 
5777 
5778 
5779 
5780 
5781 
5782 
5783 
5784 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5792 
5793 



CMP (A74),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

BE INUCK 

Remove segment from memory 

JSR UNLSEG 



LDA A74 

STA SEGPTR 
ifdef GRIG 

STA SYCSEG 
endif 

LDA A74+1 

STA SEGPTR+1 
ifdef GRIG 

STA SYCSEG+1 
endif 

Restore jump table pointer 



INUCK LDY 
LDA 
STA 

ifdef GRIG 
STA 

endif 

INY 
LDA 
STA 

ifdef GRIG 
STA 

endif 



#4 

(MSPTR),Y 

JTBPTR 

SYCJTB 



(MSPTR),Y 
JTBPTR+1 

SYCJTB+1 



Restore P-code pointer 



LDY 
LDA 
STA 
INY 
LDA 
STA 



#8 

(MSPTR),Y 

IPCPTR 

(MSPTR),Y 
IPCPTR+1 



Restore markstack pointer 



LDY 
LDA 
TAX 
DEY 
LDA 
STA 
STA 
STX 
STX 



#3 
(MSPTR),Y 



(MSPTR),Y 

MSPTR 

SYCMS 

MSPTR+1 

SYCMS+1 
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5794 


Go execute next P-code 




5795 






E3C3 4C53D2 


5796 


JMP 


EXECPC 




5797 


.PAGE 'Set 


"A7C" pointer' 




5798 








5799 








5800 






E3C6 A000 


5801 SETA7C 


LDY #0 


E3C8 38 


5802 


CLB 




E3C9 A590 


5803 


LDA 


A90 


E3CB F190 


5804 


SBB 


(A90),Y 


E3CD 857C 


5805 


STA 


A7C 


E3CF A591 


5806 


LDA 


A90+1 


E3D1 C8 


5807 


INY 




E3D2 F190 


5808 


SBB 


(A90),Y 


E3D4 857D 


5809 
5810 
5811 
5812 


STA 


A7C+1 


E3D6 60 


5813 


RTS 






5814 


.PAGE 'Compute ??? total' 




5815 








5816 


Initialize loop counter 




5817 






E3D7 A000 


5818 ] 


[NUCN LDY 


#0 


E3D9 B17C 


5819 


LDA 


(A7C),Y 


E3DB AA 


5820 


TAX 




E3DC E8 


5821 


INX 




E3DD C8 


5822 


INY 




E3DE B17C 


5823 


LDA 


(A7C),Y 


E3E0 8584 


5824 


STA 


LCNTH 


E3E2 4C04E4 


5825 
5826 


JMP 


INUCT 




5827 


Update 


total at "A88" 




5828 






E3E5 A000 


5829 ] 


[NUCR LDY 


#0 


E3E7 38 


5830 


CLB 




E3E8 A57C 


5831 


LDA 


A7C 


E3EA F17C 


5832 


SBB 


(A7C),Y 


E3EC 8574 


5833 


STA 


NB8 


E3EE C8 


5834 


INY 




E3EF A57D 


5835 


LDA 


A7C+1 


E3F1 F17C 


5836 


SBB 


(A7C),Y 


E3F3 8575 


5837 


STA 


NB8+1 


E3F5 18 


5838 


CLC 




E3F6 88 


5839 


DEY 




E3F7 B174 


5840 


LDA 


(NB8),Y 


E3F9 6588 


5841 


ADC 


A88 


E3FB 9174 


5842 


STA 


(NB8),Y 


E3FD C8 


5843 


INY 




E3FE B174 


5844 


LDA 


(NB8),Y 


E400 6589 


5845 


ADC 


A88+1 


E402 9174 


5846 
5847 
5848 
5849 


STA 


(NB8),Y 




5850 ] 


[NUCT 






5851 


ifndef GRIG 
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5852 JSR S2A7C 

5853 else 

E404 A57C 5854 LDA A7C 
E406 38 5855 CLB 
E407 E902 5856 SBB #2 
E409 857C 5857 STA A7C 
E40B B002 5858 BNB INUCU 
E40D C67D 5859 DEC A7C+1 

5860 INUCU 

5861 endif 
5862 
5863 
5864 

E40F CA 5865 DEX 
E410 D0D3 5866 BNZ INUCR 
E412 C684 5867 DEC LCNTH 
E414 10CF 5868 BNM INUCR 

5869 

5870 

5871 
E416 60 5872 RTS 

5873 ifndef GRIG 



Return to caller 



INC HPPTR+1 
INC HPPTR+1 



5874 ;.PAGE 'Some subroutines' 

5875 

5876 

5877 

5878 NE483 LDA ABF33 

5879 BNM EXl 
5880 
5881 
5882 
5883 
5884 
5885 
5886 
5887 
5888 EXl RTS 

5889 

5890 
5891 
5892 

5893 NE48D LDA ABF33 

5894 BNM EX2 
5895 
5896 
5897 
5898 
5899 
5900 
5901 
5902 
5903 EX2 RTS 

5904 

5905 
5906 
5907 
5908 NE497 LDA PSKPTR 



DEC HPPTR+1 
DEC HPPTR+1 
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5909 


SBB 


HPPTR 


5910 


LDA 


PSKPTR+1 


5911 


SBB 


HPPTR+1 


5912 


BNB 


NEWEX 


5913 






5914 






5915 






5916 


JSR 


INXAZ 


5917 






5918 






5919 






5920 


CLB 




5921 


LDA 


PSKPTR 


5922 


SBB 


HPPTR 


5923 


LDA 


PSKPTR+1 


5924 


SBB 


HPPTR+1 


5925 


BB 


J00ME2 


5926 






5927 






5928 






5929 r 


JEWEX RTS 




5930 


ifdef BIG 




5931 






****!K!K**!K*****!(C!(C!(!!(C!|C!|C!(C!(C!|C!|C!(CS(CS|C!|CS(CS(C!|C!(C!K!K*!K!K!K!K**!K**!K!K****!K!K!K!K***!K!K* 


5932 






5933 






5934 






5935 r 


JE68D JSR 


NE483 


5936 






5937 






5938 






5939 


CLB 




5940 


LDA 


PSKPTR 


5941 


SBB 


HPPTR 


5942 


STA 


A7E 


5943 


LDA 


PSKPTR+1 


5944 


SBB 


HPPTR+1 


5945 


STA 


A7E+1 


5946 






5947 






5948 






5949 


JSR 


NE48D 


5950 






5951 






5952 






5953 


LDA 


#0 


5954 


STA 


A7E 


5955 


LDA 


A7E+1 


5956 


AND 


#$FE 


5957 


STA 


A7E+1 


5958 






5959 






5960 






5961 


RTS 




5962 


endif 




5963 






5964 






5965 






5966 - 


J00ME2 


JMP OOMERR 


5967 


endif 
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5968 


.PAGE 'Read segment into memory' 






5969 


ifdef BIG 








5970 










5971 










5972 










5973 UCVAA JMP 


ND219 






5974 










5975 










5976 










5977 ADRSPT 


DW SYPTBL 






5978 


endif 








5979 










5980 


Multiply passed parameter b 






5981 






E417 


8574 


5982 RDSEG STA 


A74 


E419 


0A 


5983 


ASL 


A 


E41A 


18 


5984 


CLC 




E41B 


6574 


5985 
5986 


ADC 
ifndef BIG 


A74 


E41D 


0A 


5987 


ASL 


A 


E41E 


AA 


5988 
5989 


TAX 
else 








5990 


STA 


A74 






5991 


LDA 


#0 






5992 


STA 


A74+1 






5993 


ASL 


A74 






5994 


ROL 


A74+1 






5995 










5996 










5997 










5998 


CLC 








5999 


LDA 


A74 






6000 


ADC 


ADRSPT 






6001 


STA 


A40 






6002 


LDA 


A74+1 






6003 


ADC 


ADRSPT+1 






6004 


STA 


A40+1 






6005 










6006 










6007 










6008 


LDY 


#0 






6009 


LDA 


(A40),Y 






6010 


STA 


A74 






6011 










6012 










6013 










6014 


LDY 


#4 






6015 


LDA 


(A40),Y 






6016 


STA 


A76 






6017 


INY 








6018 


LDA 


(A40),Y 






6019 


STA 


A76+1 






6020 










6021 










6022 










6023 


LDA 


BZ60 






6024 


CLB 








6025 


SBB 


A76 






6026 


STA 


BZ60 
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6027 


LDA 


BZ60+1 


6028 


SBB 


A76+1 


6029 


STA 


BZ60+1 


6030 


BB 


UCVAA 


6031 






6032 






6033 






6034 


LDA 


BZ60 


6035 


SBB 


BZ62 


6036 


LDA 


BZ60+1 


6037 


SBB 


BZ62+1 


6038 


BB 


UCVAA 


6039 






6040 






6041 






6042 


LDA 


BZ60 


6043 


STA 


A82 


6044 


LDA 


BZ60+1 


6045 


STA 


A82+1 


6046 






6047 






6048 






6049 


LDY 


#2 


6050 


LDA 


(A40),Y 


6051 


STA 


A88 


6052 


INY 




6053 


LDA 


(A40),Y 


6054 


STA 


A88+1 


6055 






6056 






6057 






6058 


LDA 


A76 


6059 


STA 


A80 


6060 


LDA 


A76+1 


6061 


STA 


A80+1 


6062 






6063 






6064 






6065 


JSR 


NE68D 


6066 


BNZ 


UCVAB 


6067 






6068 






6069 






6070 


JSR 


INXAZ 


6071 






6072 






6073 






6074 


JSR 


NE68D 


6075 


BZ 


J00ME2 


6076 






6077 






6078 






6079 I 


JCVAB LDA 


A80 


6080 


STA 


A8E 


6081 


LDA 


A80+1 


6082 


STA 


A8E+1 


6083 






6084 






6085 






6086 


LDA 


A7E 
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6087 




CMP 


A80 






6088 




LDA 


A7E+1 






6089 




SBB 


A80+1 






6090 




BNB 


UCVAC 






6091 












6092 












6093 












6094 




LDA 


A7E 






6095 




STA 


A8E 






6096 




LDA 


A7E+1 






6097 




STA 


A8E+1 






6098 


UCVAC 










6099 


end! 


f 








6100 












6101 




Push zero word onto 


Stack 




6102 










E41F A900 


6103 




LDA 


#0 




E421 48 


6104 




PHA 






E422 48 


6105 
6106 




PHA 








6107 




Push c 


evice code onto sta 




6108 










E423 48 


6109 




PHA 








6110 


ifnd 


ef BIG 






E424 BD3EBE 


6111 
6112 


else 


LDA 


SYPTBL.X 






6113 




LDA 


A74 






6114 


end! 


f 






E427 0A 


6115 




ASL 


A 




E428 A8 


6116 




TAY 






E429 B9AFFE 


6117 




LDA 


DSKNUM-1,Y 




E42C F009 


6118 




BZ 


INUCW 




E42E C9FF 


6119 




CMP 


#$FF 




E430 F06F 


6120 




BE 


INUDD 






6121 


ifnd 


ef BIG 






E432 BD3EBE 


6122 
6123 


else 


LDA 


SYPTBL.X 






6124 




LDA 


A74 






6125 


end! 


f 






E435 1003 


6126 




BNM 


INUCX 




E437 B9AEFE 


6127 


INUCW LDA 


DSKNUM-2,Y 




E43A 48 


6128 


INUCX PHA 








6129 


ifnd 


ef BIG 








6130 












6131 












6132 










E43B BD42BE 


6133 




LDA 


SYPTBL+4,X 




E43E 8574 


6134 




STA 


PCDSIZ 




E440 BD43BE 


6135 




LDA 


SYPTBL+5,X 




E443 8575 


6136 




STA 


PCDSIZ+1 




E445 A55C 


6137 




LDA 


PSKPTR 




E447 38 


6138 




CLB 






E448 E574 


6139 




SBB 


PCDSIZ 




E44A 855C 


6140 




STA 


PSKPTR 




E44C A55D 


6141 




LDA 


PSKPTR+1 




E44E E575 


6142 




SBB 


PCDSIZ+1 




E450 855D 


6143 




STA 


PSKPTR+1 




E452 9018 


6144 




BB 


J00ME2 






6145 


ifn 


def GRIG 






6146 




JSR 


NE483 
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6147 


JSR 


NE497 






6148 


JSR 


NE48D 






6149 


else 








6150 










6151 










6152 






E454 


A55C 


6153 


LDA 


PSKPTR 


E456 


E55A 


6154 


SBB 


HPPTR 


E458 


A55D 


6155 


LDA 


PSKPTR+1 


E45A 


E55B 


6156 


SBB 


HPPTR+1 


E45C 


B011 


6157 
6158 
6159 
6160 


BNB 


INUCZ 


E45E 


2090D1 


6161 
6162 
6163 
6164 


JSR 


INXAZ 


E461 


38 


6165 


CLB 




E462 


A55C 


6166 


LDA 


PSKPTR 


E464 


E55A 


6167 


SBB 


HPPTR 


E466 


A55D 


6168 


LDA 


PSKPTR+1 


E468 


E55B 


6169 


SBB 


HPPTR+1 


E46A 


B003 


6170 
6171 
6172 
6173 


BNB 


INUCZ 


E46C 


4CC3D1 


6174 J00ME2 


JMP OOMERR 






6175 










6176 










6177 










6178 INUCZ 








6179 


endif 








6180 










6181 


Push 


load address onto stack 






6182 






E46F 


A55D 


6183 


LDA 


PSKPTR+1 


E471 


858F 


6184 


STA 


A8E+1 


E473 


48 


6185 


PHA 




E474 


A55C 


6186 


LDA 


PSKPTR 


E476 


858E 


6187 


STA 


A8E 


E478 


48 


6188 
6189 


PHA 








6190 


Push 


size of P-code onto stack 






6191 






E479 


A575 


6192 


LDA 


PCDSIZ+1 


E47B 


48 


6193 


PHA 




E47C 


A574 


6194 


LDA 


PCDSIZ 


E47E 


48 


6195 
6196 
6197 
6198 
6199 


PHA 
else 








6200 


JSR 


NE483 






6201 










6202 


Push 


load address onto stack 






6203 










6204 


LDA 


HPPTR+1 






6205 


PHA 








6206 


LDA 


HPPTR 
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6207 




PHA 






6208 


/ 








6209 


/ 








6210 


/ 








6211 




JSR 


NE48D 




6212 


/ 








6213 


t 


Push size of P-code onto stack 




6214 


t 








6215 




LDA 


A8E+1 




6216 




PHA 






6217 




LDA 


A8E 




6218 




PHA 






6219 


endi 


f 






6220 










6221 




Push block number onto stack 




6222 










6223 


'ifnd 


ef BIG 




E47F BD41BE 


6224 
6225 


else 


LDA 


SYPTBL+3,X 




6226 




LDA 


A88+1 




6227 


endi 


f 




E482 48 


6228 




PHA 






6229 


ifnd 


ef BIG 




E483 BD40BE 


6230 
6231 


else 


LDA 


SYPTBL+2,X 




6232 




LDA 


A88 




6233 


endi 


f 




E486 48 


6234 
6235 
6236 
6237 




PHA 




E487 B9AFFE 


6238 




LDA 


DSKNUM-1,Y 


E48A F00B 


6239 
6240 
6241 
6242 




BZ 


INUDB 




6243 


'ifnd 


ef BIG 




E48C BD3EBE 


6244 
6245 


else 


LDA 


SYPTBL.X 




6246 




LDA 


A74 




6247 


endi 


f 




E48F A200 


6248 




LDX 


#0 


E491 203CFF 


6249 
6250 
6251 
6252 




JSR 


JUDDRV 


E494 4C9AE4 


6253 
6254 
6255 
6256 


t 
t 


JMP 


INUDC 


E497 2012FF 


6257 


INUDB JSR 


J DREAD 




6258 


t 








6259 


t 








6260 


t 






E49A E000 


6261 


INUDC CPX 


#0 


E49C F006 


6262 




BE 


INUDE 


E49E 8EDEBD 


6263 




STX 


lORSLT 


E4A1 4CE7D1 


6264 


INUDD JMP 


ERR9 




6265 


INUDE 
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6266 


;.PAGE 'Move logic for 


6267 


ifdef BIG 




6268 


/ 




6269 


/ 




6270 


t 




6271 


JSR 


NE483 


6272 


t 




6273 


t 




6274 


t 




6275 


LDA 


HPPTR 


6276 


STA 


SRCPTR 


6277 


LDA 


HPPTR+1 


6278 


STA 


SRCPTR+1 


6279 


/ 




6280 


t 




6281 


t 




6282 


JSR 


NE48D 


6283 


t 




6284 


t 




6285 


t 




6286 


LDA 


A82 


6287 


STA 


DSTPTR 


6288 


LDA 


A82+1 


6289 


STA 


DSTPTR+1 


6290 


t 




6291 


t 




6292 


t 




6293 


STA 


RAMWRS 


6294 


/ 




6295 


t 




6296 


t 




6297 


LDX 


A8E+1 


6298 


LDY 


#0 


6299 


UCVAJ CPX 


#0 


6300 


BE 


UCVAL 


6301 


DEX 




6302 


UCVAK LDA 


(SRCPTR), Y 


6303 


STA 


(DSTPTR), Y 


6304 


INY 




6305 


BNZ 


UCVAK 


6306 


INC 


DSTPTR+1 


6307 


INC 


SRCPTR+1 


6308 


JMP 


UCVAJ 


6309 


UCVAL LDX 


A8E 


6310 


JMP 


UCVAN 


6311 


UCVAM LDA 


(SRCPTR), Y 


6312 


STA 


(DSTPTR), Y 


6313 


INY 




6314 


DEX 




6315 


UCVAN BNZ 


UCVAM 


6316 


t 




6317 


t 




6318 


t 




6319 


STA 


RAMWRC 


6320 


/ 




6321 


/ 




6322 


t 




6323 


LDA 


A80 


6324 


CLB 




6325 


SBB 


A8E 
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E4A4 60 



E4A5 8586 
E4A7 0A 
E4A8 A8 



E4A9 B91EBD 

E4AC D005 

E4AE B91FBD 

E4B1 F00B 



E4B3 98 
E4B4 AA 
E4B5 FEIEBD 
E4B8 D003 
E4BA FEIFBD 



6326 
6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 
6348 
6349 
6350 
6351 
6352 
6353 
6354 
6355 
6356 
6357 
6358 
6359 

6360 
6361 
6362 
6363 
6364 
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 



STA 
LDA 
SBB 
STA 



BNZ 
LDA 
BZ 



UCVAO LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 



LDA 
LSR 
CLC 
ADC 
STA 
BNC 
INC 

UCVAP JMP 

UCVAQ 
endif 
RTS 



A80 
A80+1 
A8E+1 
A80+1 



UCVAO 

A80 

UCVAQ 



A82 

A8E 

A82 

A82+1 

A8E+1 

A82+1 



A8E+1 
A 

A88 

A88 

UCVAP 

A88+1 

UCVAB 



.PAGE 'Determine if segment is already in memory' 
Double segment number 



LODSEG 



ASL 
TAY 



STA 
A 



SEGNO 



Branch if use counter for this segment is zero 



LDA 
BNZ 
LDA 
BZ 



SUCTBL.Y 
INUDH 

SUCTBL+1,Y 
INUDJ 



Increment use counter for this segment 



INUDH TYA 
TAX 
INC 
BNZ 
INC 



SUCTBL.X 

INUDI 

SUCTBL+1,X 



Return to caller 
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E4BD 60 



E4BE A55C 

E4C0 995EBD 

E4C3 A55D 

E4C5 995FBD 



E4C8 A901 
E4CA 991EBD 



E4CD 98 
E4CE 8574 
E4D0 0A 
E4D1 18 
E4D2 6574 
E4D4 AA 



E4D5 BD40BE 
E4D8 D024 
E4DA BD41BE 
E4DD D01F 



6385 

6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 
6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 
6428 
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6438 
6439 
6440 
6441 
6442 
6443 



INUDI RTS 

PAGE 'Load segment into memory' 
Save segment load address 



INUDJ LDA 
STA 
LDA 
STA 



PSKPTR 
SLATBL.Y 
PSKPTR+1 
SLATBL+1,Y 



Set use counter for this segment to 1 

LDA #1 
STA SUCTBL.Y 
ifndef BIG 

SEGNO * 6 -> 'X' register 



TYA 
STA 
ASL 
CLC 
ADC 
TAX 



A74 
A 

A74 



else 



SEGNO * 6 + A(SYPTBL) -> "A40" 



TYA 
TAX 
LSR 
STA 
ASL 
CLC 
ADC 
STA 
LDA 
STA 
ASL 
ROL 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 



A 

A74 

A 

A74 

A74 

#0 

A74+1 

A74 

A74+1 

A74 

ADRSPT 

A40 

A74+1 

ADRSPT+1 

A40+1 



endif 



ifndef BIG 
LDA 
BNZ 
LDA 
BNZ 



else 



LDY 
LDA 



SYPTBL+2,X 
INUDK 

SYPTBL+3,X 
INUDK 

#2 
(A40),Y 
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6444 


BNZ 


INUDK 






6445 


INY 








6446 


LDA 


(A40),Y 






6447 


BNZ 


INUDK 






6448 


endif 








6449 










6450 










6451 










6452 


ifndef BIG 




E4DF 


38 


6453 


CLB 




E4E0 


A55C 


6454 


LDA 


PSKPTR 


E4E2 


FD42BE 


6455 


SBB 


SYPTBL+4,X 


E4E5 


855C 


6456 


STA 


PSKPTR 


E4E7 


A55D 


6457 


LDA 


PSKPTR+1 


E4E9 


FD43BE 


6458 


SBB 


SYPTBL+5,X 


E4EC 


855D 


6459 
6460 


STA 
else 


PSKPTR+1 






6461 


LDY 


#4 






6462 


CLB 








6463 


LDA 


PSKPTR 






6464 


SBB 


(A40),Y 






6465 


STA 


PSKPTR 






6466 


LDA 


PSKPTR+1 






6467 


INY 








6468 


SBB 


(A40),Y 






6469 


STA 


PSKPTR+1 






6470 


TXA 








6471 


TAY 








6472 


endif 








6473 


ifndef GRIG 






6474 










6475 










6476 










6477 


BB 


JGGME3 






6478 


JSR 


NE497 






6479 


endif 








6480 










6481 










6482 






E4EE 


A55C 


6483 


LDA 


PSKPTR 


E4F0 


38 


6484 


CLB 




E4F1 


E902 


6485 


SBB 


#2 


E4F3 


999EBD 


6486 


STA 


lUTBL.Y 


E4F6 


A55D 


6487 


LDA 


PSKPTR+1 


E4F8 


E900 


6488 


SBB 


#0 


E4FA 


999FBD 


6489 
6490 
6491 
6492 
6493 


STA 
ifdef BIG 


IUTBL+1,Y 






6494 


LDX 


SEGNG 






6495 


LDA 


#0 






6496 


STA 


SXXTBL.X 






6497 


endif 








6498 










6499 










6500 






E4FD 


60 


6501 


RTS 








6502 


ifndef GRIG 






6503 
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6504 










6505 










6506 J00ME3 


JMP OOMERR 






6507 


endif 








6508 ] 


[NUDK 








6509 










6510 










6511 










6512 


ifndef BIG 




E4FE 


38 


6513 


CLB 




E4FF 


A55C 


6514 
6515 
6516 
6517 
6518 


LDA 
else 

TXA 
TAY 
CLB 


PSKPTR 






6519 


LDA 


BZ60 






6520 


endif 




E501 


E902 


6521 


SBB 


#2 


E503 


999EBD 


6522 


STA 


lUTBL.Y 


E506 


8590 


6523 
6524 


STA 
ifndef BIG 


A90 


E508 


A55D 


6525 
6526 


LDA 
else 


PSKPTR+1 






6527 


LDA 


BZ60+1 






6528 


endif 




E50A 


E900 


6529 


SBB 


#0 


E50C 


999FBD 


6530 


STA 


IUTBL+1,Y 


E50F 


8591 


6531 
6532 
6533 
6534 


STA 


A90+1 


E511 


A586 


6535 


LDA 


SEGNO 


E513 


2017E4 


6536 
6537 
6538 
6539 
6540 


JSR 
ifdef BIG 


RDSEG 






6541 


STA 


RAMRDS 






6542 










6543 










6544 










6545 


LDA 


#-1 






6546 


STA 


A80 






6547 


STA 


A80+1 






6548 










6549 










6550 










6551 


LDA 


#0 






6552 


STA 


A88 






6553 


STA 


A88+1 






6554 










6555 










6556 










6557 


LDA 


A90 






6558 


STA 


A74 






6559 


LDA 


A90+1 






6560 


STA 


A74+1 






6561 


endif 








6562 










6563 
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6564 






E516 A001 


6565 


LDY 


#1 


E518 B190 


6566 


LDA 


(A90),Y 


E51A 857A 


6567 


STA 


A7A 




6568 


ifdef BIG 






6569 








6570 








6571 








6572 


CLE 






6573 


LDA 


BZ60 




6574 


SBB 


A7A 




6575 


STA 


A84 




6576 


LDA 


BZ60+1 




6577 


SBB 


#0 




6578 


STA 


A84+1 




6579 








6580 








6581 








6582 


CLB 






6583 


LDA 


A84 




6584 


SBB 


BZ62 




6585 


LDA 


A84+1 




6586 


SBB 


BZ62+1 




6587 


BNB 


INZAA 




6588 








6589 








6590 








6591 


JMP 


UCVAA 




6592 








6593 








6594 








6595 ] 


[NZAA LDA 


BZ60 




6596 


STA 


A84 




6597 


LDA 


BZ60+1 




6598 


STA 


A84+1 




6599 








6600 








6601 








6602 


LDA 


A84 




6603 


CLB 






6604 


SBB 


#1 




6605 


STA 


A84 




6606 


BNB 


INZAB 




6607 


DEC 


A84+1 




6608 








6609 








6610 








6611 ] 


[NZAB LDA 


#>512 




6612 


STA 


A76 




6613 


LDA 


#<512 




6614 


STA 


A76+1 




6615 








6616 








6617 








6618 


STA 


RAMWRS 




6619 ] 


[NZAC 






6620 


endif 






6621 


.PAGE 






6622 
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6623 


/ 












6624 


/ 












6625 


ifnd 


ef GRIG 








6626 




JSR 


S2A90 








6627 


else 








E51C 


A590 


6628 




LDA 


A90 




E51E 


38 


6629 




CLE 






E51F 


E902 


6630 




SBB 


#2 




E521 


8590 


6631 




STA 


A90 




E523 


B002 


6632 




BNB 


INUDM 




E525 


C691 


6633 
6634 
6635 


INUDM 
endi 


DEC 
f 


A90+1 




E527 


20C6E3 


6636 




JSR 


SETA7C 








6637 


ifdef BIG 










6638 


; .PAGE 










6639 














6640 














6641 














6642 




LDY 


#0 








6643 




LDA 


(A7C),Y 








6644 




BZ 


INZAD 








6645 














6646 














6647 














6648 




LDA 


SEGNO 








6649 




BZ 


INZAG 








6650 














6651 














6652 














6653 




LDA 


#$80 








6654 




STA 


(A84),Y 








6655 


/ 












6656 


/ 


Unconditional b 


ranch 






6657 


/ 












6658 




BNZ 


INZAG 








6659 


/ 












6660 


t 












6661 


t 












6662 


INZAD 


LDA 


A7C 








6663 




CMP 


A80 








6664 




LDA 


A7C+1 








6665 




SBB 


A80+1 








6666 




BNB 


INZAE 








6667 














6668 














6669 














6670 




LDA 


A7C 








6671 




STA 


A80 








6672 




LDA 


A7C+1 








6673 




STA 


A80+1 








6674 














6675 














6676 














6677 


INZAE 


LDA 


A7C 








6678 




CMP 


A88 








6679 




LDA 


A7C+1 








6680 




SBB 


A88+1 








6681 




BB 


INZAF 
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6682 






6683 






6684 






6685 


LDA 


A7C 


6686 


STA 


A88 


6687 


LDA 


A7C+1 


6688 


STA 


A88+1 


6689 






6690 






6691 






6692 ] 


[NZAF LDY 


#1 


6693 


LDA 


(A7C),Y 


6694 


DEY 




6695 


STA 


(A84),Y 


6696 






6697 






6698 






6699 ] 


[NZAG LDA 


A84 


6700 


CLB 




6701 


SBB 


#1 


6702 


STA 


A84 


6703 


BNB 


INZAI 


6704 


DEC 


A84+1 


6705 






6706 






6707 






6708 ] 


[NZAI DEC 


A7A 


6709 


BNZ 


INZAC 


6710 






6711 






6712 






6713 


STA 


RAMWRC 


6714 






6715 






6716 






6717 


LDA 


A74 


6718 


STA 


A90 


6719 


LDA 


A74+1 


6720 


STA 


A90+1 


6721 






6722 






6723 






6724 


LDA 


#$FF 


6725 


CMP 


A80 


6726 


BNE 


I NZAJ 


6727 


CMP 


A80+1 


6728 


BNE 


I NZAJ 


6729 






6730 






6731 






6732 


JMP 


INZBY 


6733 






6734 






6735 






6736 ] 


[NZAJ LDA 


A80 


6737 


CLB 




6738 


SBB 


#2 


6739 


STA 


A80 


6740 


BNB 


INZAL 


6741 


DEC 


A80+1 
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6742 






6743 






6744 






6745 INZAL LDY 


#0 


6746 


CLB 




6747 


LDA 


A80 


6748 


SBB 


(A80),Y 


6749 


TAX 




6750 


LDA 


A80+1 


6751 


INY 




6752 


SBB 


(A80),Y 


6753 


STA 


A80+1 


6754 


STX 


A80 


6755 






6756 






6757 






6758 


LDA 


A88 


6759 


CLC 




6760 


ADC 


#2 


6761 


STA 


A88 


6762 


BNC 


I NZAM 


6763 


INC 


A88+1 


6764 






6765 






6766 






6767 ] 


[NZAM CLB 




6768 


LDA 


A88 


6769 


SBB 


A80 


6770 


STA 


A82 


6771 


LDA 


A88+1 


6772 


SBB 


A80+1 


6773 


STA 


A82+1 


6774 






6775 






6776 






6777 


CLB 




6778 


LDA 


PSKPTR 


6779 


SBB 


A82 


6780 


STA 


PSKPTR 


6781 


LDA 


PSKPTR+1 


6782 


SBB 


A82+1 


6783 


STA 


PSKPTR+1 


6784 






6785 






6786 






6787 


JSR 


NE497 


6788 






6789 






6790 






6791 


CLB 




6792 


LDA 


A80 


6793 


SBB 


BZ60 


6794 


STA 


A7E 


6795 


LDA 


A80+1 


6796 


SBB 


BZ60+1 


6797 


STA 


A7E+1 


6798 






6799 






6800 






6801 


CLB 





Apple ][ Pascal Technical Information 



Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 133 of 292 





6802 


LDA 


PSKPTR 




6803 


SBB 


A7E 




6804 


STA 


A8E 




6805 


LDA 


PSKPTR+1 




6806 


SBB 


A7E+1 




6807 


STA 


A8E+1 




6808 








6809 








6810 








6811 


LDY 


#1 




6812 


LDA 


(A90),Y 




6813 


STA 


A7A 




6814 








6815 








6816 








6817 


JSR 


S2A90 




6818 








6819 








6820 








6821 


JSR 


SETA7C 




6822 


endif 






6823 


.PAGE 






6824 








6825 








6826 






E52A A001 


6827 


LDY 


#1 


E52C B17C 


6828 


LDA 


(A7C),Y 


E52E C901 


6829 


CMP 


#1 


E530 B035 


6830 


BGE 


INUDQ 


E532 A57C 


6831 


LDA 


A7C 


E534 38 


6832 


CLB 




E535 E908 


6833 


SBB 


#8 


E537 857C 


6834 


STA 


A7C 


E539 B002 


6835 


BNB 


INUDN 


E53B C67D 


6836 


DEC 


A7C+1 


E53D 38 


6837 ] 


[NUDN CLB 




E53E A000 


6838 


LDY 


#0 


E540 A55C 


6839 


LDA 


PSKPTR 


E542 F17C 


6840 


SBB 


(A7C),Y 


E544 858C 


6841 


STA 


A8C 


E546 C8 


6842 


INY 




E547 A55D 


6843 


LDA 


PSKPTR+1 


E549 F17C 


6844 


SBB 


(A7C),Y 


E54B 858D 


6845 


STA 


A8C+1 


E54D C8 


6846 


INY 




E54E 38 


6847 


CLB 




E54F A58C 


6848 


LDA 


A8C 


E551 F17C 


6849 


SBB 


(A7C),Y 


E553 858C 


6850 


STA 


A8C 


E555 B002 


6851 


BNB 


INUDO 


E557 C68D 


6852 


DEC 


A8C+1 


E559 A58C 


6853 ] 


[NUDO LDA 


A8C 


E55B 38 


6854 


CLB 




E55C E90C 


6855 


SBB 


#12 


E55E 858C 


6856 


STA 


A8C 


E560 B002 


6857 


BNB 


INUDP 


E562 C68D 


6858 


DEC 


A8C+1 


E564 4C6FE5 


6859 ] 


[NUDP JMP 


INUDR 


E567 A550 


6860 ] 


[NUDQ LDA 


BASPTR 
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E569 858C 


6861 


STA 


A8C 


E56B A551 


6862 


LDA 


BASPTR+1 


E56D 858D 


6863 


STA 


A8C+1 




6864 


INUDR 






6865 


ifdef BIG 






6866 


STA 


RAMWRS 




6867 


endif 




E56F 20C6E3 


6868 


JSR 


SETA7C 


E572 A000 


6869 


LDY 


#0 


E574 B17C 


6870 


LDA 


(A7C),Y 




6871 


ifndef GRIG 




6872 


BE 


INUDT 




6873 


JMP 


JSRUDX 




6874 


INUDT JSR 


S2A7C 




6875 


ifdef BIG 






6876 


LDA 


(A7C),Y 




6877 


CLC 






6878 


ADC 


BZ60 




6879 


STA 


A7E 




6880 


INY 






6881 


LDA 


(A7C),Y 




6882 


ADC 


BZ60+1 




6883 


STA 


A7E+1 




6884 








6885 








6886 








6887 


DEY 






6888 


CLB 






6889 


LDA 


A7E 




6890 


SBB 


A8E 




6891 


STA 


(A7C),Y 




6892 


STA 


(A76),Y 




6893 


INY 






6894 


LDA 


A7E+1 




6895 


SBB 


A8E+1 




6896 


STA 


(A7C),Y 




6897 


STA 


(A76),Y 




6898 


DEY 






6899 


endif 






6900 


else 




E576 D06C 


6901 


BNZ 


S2A90 


E578 A57C 


6902 


LDA 


A7C 


E57A 38 


6903 


CLB 




E57B E902 


6904 


SBB 


#2 


E57D 857C 


6905 


STA 


A7C 


E57F B002 


6906 


BNB 


INUDT 


E581 C67D 


6907 


DEC 


A7C+1 




6908 


INUDT 






6909 


endif 




E583 38 


6910 


CLB 




E584 A57C 


6911 


LDA 


A7C 


E586 F17C 


6912 


SBB 


(A7C),Y 


E588 858A 


6913 


STA 


A8A 


E58A C8 


6914 


INY 




E58B A57D 


6915 


LDA 


A7C+1 


E58D F17C 


6916 


SBB 


(A7C),Y 


E58F 858B 


6917 


STA 


A8A+1 




6918 


ifndef GRIG 




6919 


JSR 


S2A7C 




6920 


else 
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E591 A57C 


6921 


LDA 


A7C 


E593 38 


6922 


CLB 




E594 E902 


6923 


SBB 


#2 


E596 857C 


6924 


STA 


A7C 


E598 B002 


6925 


BNB 


INUDU 


E59A C67D 


6926 


DEC 


A7C+1 




6927 


INUDU 






6928 


endif 




E59C A005 


6929 


LDY 


#5 


E59E B17C 


6930 


LDA 


(A7C),Y 


E5A0 F014 


6931 


BZ 


INUDV 


E5A2 0A 


6932 


ASL 


A 


E5A3 A8 


6933 


TAY 






6934 


RDMAI^ 


1 




+ 


IFDEF 


BIG 




+ 


STA 


RAMRDC 




+ 


ENDIF 




E5A4 B99EBD 


6935 


LDA 


lUTBL.Y 


E5A7 18 


6936 


CLC 




E5A8 6902 


6937 


ADC 


#2 


E5AA 8588 


6938 


STA 


A88 


E5AC B99FBD 


6939 


LDA 


IUTBL+1,Y 


E5AF 6900 


6940 


ADC 


#0 


E5B1 8589 


6941 


STA 


A88+1 




6942 


RDAUX 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDS 




+ 


ENDIF 






6943 


/ 






6944 


/ 






6945 


/ 




E5B3 4CBEE5 


6946 
6947 
6948 
6949 


JMP 


INUDW 


E5B6 A58C 


6950 


INUDV LDA 


A8C 


E5B8 8588 


6951 


STA 


A88 


E5BA A58D 


6952 


LDA 


A8C+1 


E5BC 8589 


6953 
6954 
6955 
6956 


STA 

t 


A88+1 


E5BE 20D7E3 


6957 
6958 
6959 
6960 


INUDW JSR 


INUCN 


E5C1 A58E 


6961 


LDA 


A8E 


E5C3 8588 


6962 


STA 


A88 


E5C5 A58F 


6963 


LDA 


A8E+1 


E5C7 8589 


6964 
6965 
6966 
6967 


STA 

t 
t 
t 


A88+1 


E5C9 20D7E3 


6968 
6969 
6970 
6971 


JSR 

t 


INUCN 


E5CC A58A 


6972 


LDA 


A8A 


E5CE 8588 


6973 


STA 


A88 


E5D0 A58B 


6974 


LDA 


A8A+1 
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E5D2 8589 



E5D4 20D7E3 



E5D7 ADADDl 
E5DA 8588 
E5DC ADAEDl 
E5DF 8589 



E5E1 20D7E3 



E5E4 A590 
E5E6 38 
E5E7 E902 
E5E9 8590 
E5EB B002 
E5ED C691 



E5EF C67A 
E5F1 F003 
E5F3 4C6FE5 



6975 
6976 
6977 
6978 
6979 
6980 
6981 
6982 
6983 
6984 
6985 
6986 
6987 
6988 
6989 
6990 
6991 
6992 
6993 
6994 
6995 
6996 
6997 
6998 
6999 
7000 
7001 
7002 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7011 
7012 
7013 
7014 
7015 
7016 
7017 

7018 
7019 
7020 
7021 
7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 
7032 
7033 



STA A88+1 



JSR 



INUCN 



LDA 


INXBC 


STA 


A88 


LDA 


INXBC+1 


STA 


A88+1 



JSR 



ifndef GRIG 
JSRUDX 
ifdef BIG 
LDA 
CLC 
ADC 
STA 
BNC 
INC 
INZAX 
endif 
else 
S2A90 LDA 
CLB 
SBB 
STA 
BNB 
DEC 
INUDY 
endif 
DEC 
BZ 
JMP 
INUDZ 



INUCN 

JSR 

A76 

#2 
A76 
INZAX 
A76+1 

A90 

#2 
A90 
INUDY 
A90+1 



S2A90 



A7A 

INUDZ 

INUDR 



;.PAGE 'Move logic for 128K version' 
ifdef BIG 



STA RAMWRC 

Initialize source pointer 

LDA A80 

STA SRCPTR 

LDA A80+1 

STA SRCPTR+1 

Initialize destination pointer 
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7034 


LDA 


PSKPTR 


7035 


STA 


DSTPTR 


7036 


LDA 


PSKPTR+1 


7037 


STA 


DSTPTR+1 


7038 






7039 


Copy 




7040 






7041 


LDX 


A82+1 


7042 


LDY 


#0 


7043 ] 


[NZAZ CPX 


#0 


7044 


BE 


INZBB 


7045 


DEX 




7046 ] 


[NZBA LDA 


(SRCPTR),Y 


7047 


STA 


(DSTPTR), Y 


7048 


INY 




7049 


BNZ 


INZBA 


7050 


INC 


DSTPTR+1 


7051 


INC 


SRCPTR+1 


7052 


JMP 


I NZAZ 


7053 






7054 






7055 






7056 ] 


[NZBB LDX 


A82 


7057 


JMP 


INZBD 


7058 ] 


[NZBC LDA 


(SRCPTR),Y 


7059 


STA 


(DSTPTR), Y 


7060 


INY 




7061 


DEX 




7062 ] 


[NZBD BNZ 


INZBC 


7063 






7064 






7065 






7066 


LDA 


A74 


7067 


STA 


A90 


7068 


LDA 


A74+1 


7069 


STA 


A90+1 


7070 






7071 






7072 






7073 


LDY 


#1 


7074 


LDA 


(A90),Y 


7075 


STA 


A7A 


7076 






7077 






7078 






7079 


LDA 


A90 


7080 


CLB 




7081 


SBB 


A7A 


7082 


STA 


A90 


7083 


BNB 


INZBE 


7084 


DEC 


A90+1 


7085 






7086 






7087 






7088 ] 


[NZBE LDA 


A90 


7089 


CLB 




7090 


SBB 


A7A 


7091 


STA 


A90 


7092 


BNB 


INZBF 


7093 


DEC 


A90+1 
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7094 
7095 
7096 
7097 
7098 
7099 
7100 
7101 
7102 
7103 
7104 



INZBF LDA 
STA 
LDA 
STA 



STA 



A90 
A7C 
A90+1 
A7C+1 



RAMWRS 



7105 
7106 
7107 
7108 
7109 
7110 
7111 
7112 
7113 
7114 
7115 
7116 
7117 
7118 
7119 
7120 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
7128 
7129 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
7148 
7149 
7150 
7151 
7152 



.PAGE 



INZBG LDA 
CLC 
ADC 
STA 
BNC 
INC 



INZBH LDA 
CLB 
SBB 
STA 
BNB 
DEC 



INZBI LDY 
LDA 
BM 



JSR 



A84 

#1 
A84 
INZBH 
A84+1 



A76 

#2 
A76 
INZBI 
A76+1 



#0 

(A84),Y 

INZBJ 



S2A7C 



LDY 


#0 


LDA 


#0 


STA 


(A7C),Y 


LDA 


(A84),Y 


INY 




STA 


(A7C),Y 


CLB 




LDA 


A90 


SBB 


A7C 


STA 


A7E 


LDA 


A90+1 


SBB 


A7C+1 


STA 


A7E+1 
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7153 








7154 








7155 








7156 


CLB 






7157 


LDY 


#0 




7158 


LDA 


(A90),Y 




7159 


SBB 


A7E 




7160 


STA 


A88 




7161 


INY 






7162 


LDA 


(A90),Y 




7163 


SBB 


A7E+1 




7164 


STA 


A88+1 




7165 








7166 








7167 








7168 


LDY 


#0 




7169 


LDA 


A7E 




7170 


STA 


(A90),Y 




7171 


INY 






7172 


LDA 


A7E+1 




7173 


STA 


(A90),Y 




7174 








7175 








7176 








7177 


JSR 


S2A7C 




7178 








7179 








7180 








7181 


LDY 


#0 




7182 


LDA 


(A76),Y 




7183 


CLC 






7184 


ADC 


A88 




7185 


STA 


(A7C),Y 




7186 


INY 






7187 


LDA 


(A76),Y 




7188 


ADC 


A88+1 




7189 


STA 


(A7C),Y 




7190 








7191 








7192 








7193 ] 


[NZBJ LDA 


A90 




7194 


CLC 






7195 


ADC 


#2 




7196 


STA 


A90 




7197 


BNC 


INZBK 




7198 


INC 


A90+1 




7199 








7200 








7201 








7202 ] 


[NZBK DEC 


A7A 




7203 


BZ 


INZBL 




7204 








7205 








7206 








7207 


JMP 


INZBG 




7208 








7209 


Initialize source 


pointer 


7210 








7211 ] 


[NZBL LDA 


A80 




7212 


STA 


SRCPTR 
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7213 


LDA 


A80+1 


7214 


STA 


SRCPTR+1 


7215 






7216 


Initialize dest 


7217 






7218 


LDA 


A7C 


7219 


STA 


DSTPTR 


7220 


LDA 


A7C+1 


7221 


STA 


DSTPTR+1 


7222 






7223 






7224 






7225 


CLB 




7226 


LDA 


SRCPTR 


7227 


SBB 


BZ60 


7228 


STA 


A82 


7229 


LDA 


SRCPTR+1 


7230 


SBB 


BZ60+1 


7231 


STA 


A82+1 


7232 






7233 






7234 






7235 


CLB 




7236 


LDA 


DSTPTR 


7237 


SBB 


SRCPTR 


7238 


STA 


A88 


7239 


LDA 


DSTPTR+1 


7240 


SBB 


SRCPTR+1 


7241 


STA 


A88+1 


7242 






7243 






7244 






7245 


LDA 


A74 


7246 


STA 


A90 


7247 


LDA 


A74+1 


7248 


STA 


A90+1 


7249 






7250 






7251 






7252 


LDY 


#1 


7253 


LDA 


(A90),Y 


7254 


STA 


A7A 


7255 






7256 






7257 






7258 ] 


[NZBM JSR 


S2A90 


7259 






7260 






7261 






7262 


LDY 


#0 


7263 


LDA 


(A84),Y 


7264 


BNM 


INZBN 


7265 






7266 






7267 






7268 


LDY 


#0 


7269 


CLB 




7270 


LDA 


(A90),Y 


7271 


SBB 


A88 


7272 


STA 


(A90),Y 
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7273 INY 

7274 LDA 

7275 SBB 

7276 STA 
7277 
7278 
7279 

7280 INZBN LDA 

7281 CLE 

7282 SBB 

7283 STA 

7284 BNB 

7285 DEC 
7286 
7287 
7288 

7289 INZBO DEC 

7290 BNZ 



(A90),Y 

A88+1 

(A90),Y 



A84 

#1 
A84 
INZBO 
A84+1 



A7A 
INZBM 



7291 
7292 
7293 
7294 
7295 
7296 
7297 
7298 
7299 
7300 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
7308 
7309 
7310 
7311 
7312 
7313 
7314 
7315 
7316 
7317 
7318 
7319 
7320 
7321 
7322 
7323 
7324 
7325 
7326 
7327 
7328 
7329 
7330 
7331 



.PAGE 



Move page count to 'X' register 

LDX A82+1 

Branch if no more pages to move 



INZBP CPX 
BE 



#0 
INZBR 



Move a page 



LDY 
DEC 
DEC 
DEX 
INZBQ LDA 
STA 
DEY 
BNZ 
LDA 
STA 



#255 

SRCPTR+1 

DSTPTR+1 

(SRCPTR),Y 
(DSTPTR),Y 

INZBQ 

(SRCPTR),Y 

(DSTPTR),Y 



JMP INZBP 

Branch if move size a multiple of a page 



INZBR LDY 
BZ 



A82 
INZBX 



Initialize source pointer 



LDA 
CLB 
SBB 
STA 
BNB 
DEC 



SRCPTR 

A82 

SRCPTR 
INZBS 
SRCPTR+1 
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7332 






7333 


Initialize destination pointer 


7334 






7335 INZBS LDA 


DSTPTR 


7336 


CLB 




7337 


SBB 


A82 


7338 


STA 


DSTPTR 


7339 


BNB 


INZBT 


7340 


DEC 


DSTPTR+1 


7341 






7342 


Decrement source pointer 


7343 






7344 INZBT LDA 


SRCPTR 


7345 


CLB 




7346 


SBB 


#1 


7347 


STA 


SRCPTR 


7348 


BNB 


INZBU 


7349 


DEC 


SRCPTR+1 


7350 






7351 


Decrement destination pointer 


7352 






7353 ] 


[NZBU LDA 


DSTPTR 


7354 


CLB 




7355 


SBB 


#1 


7356 


STA 


DSTPTR 


7357 


BNB 


INZBV 


7358 


DEC 


DSTPTR+1 


7359 






7360 


Move 


??? 


7361 






7362 ] 


[NZBV LDA 


(SRCPTR), Y 


7363 


STA 


(DSTPTR), Y 


7364 


DEY 




7365 


BNZ 


INZBV 


7366 


.PAGE 




7367 






7368 






7369 






7370 ] 


[NZBX LDA 


BZ60 


7371 


CLC 




7372 


ADC 


A88 


7373 


STA 


BZ60 


7374 


LDA 


BZ60+1 


7375 


ADC 


A88+1 


7376 


STA 


BZ60+1 


7377 






7378 






7379 






7380 


STA 


RAMWRC 


7381 






7382 






7383 






7384 ] 


[NZBY STA 


RAMRDC 


7385 






7386 






7387 






7388 


LDX 


SEGNO 


7389 


LDA 


#$FF 


7390 


STA 


SXXTBL,X 
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E5F6 60 



E5F7 0A 
E5F8 AA 



E5F9 F020 



E5FB 38 
E5FC BDIEBD 
E5FF E901 
E601 9D1EBD 



E604 B004 



E606 DEIFBD 



7391 
7392 
7393 

7394 
7395 
7396 
7397 
7398 
7399 
7400 
7401 
7402 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
7412 
7413 
7414 
7415 

7416 
7417 
7418 
7419 
7420 
7421 
7422 
7423 
7424 
7425 
7426 
7427 
7428 
7429 
7430 
7431 
7432 
7433 
7434 
7435 
7436 
7437 
7438 
7439 
7440 
7441 
7442 
7443 
7444 
7445 
7446 
7447 
7448 



endif 

RTS 
ifndef GRIG 

.PAGE 'Subroutines for decrementing pointers' 



S2A90 LDA 
CLB 
SBB 
STA 
BNB 
DEC 

INUDY RTS 



A90 

#2 
A90 
INUDY 
A90+1 



S2A7C LDA A7C 

CLB 

SBB #2 

STA A7C 

BNB INUCU 

DEC A7C+1 
INUCU RTS 
endif 

.PAGE 'Unload segment' 

128K version needs segment number in 'Y' register 

UNLSEG 
ifdef BIG 

TAY 
endif 

Double segment number 

ASL A 
TAX 

Branch to subroutine exit if segment 

BZ INUED 

Decrement low order byte of use counter for this segment 

CLB 

LDA SUCTBL.X 

SBB #1 

STA SUCTBL.X 

Branch if decrement to zero possible 

BNB INUEB 

Decrement high order byte 

DEC SUCTBL+1,X 
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E609 60 



E60A D00F 
E60C BDIFBD 
E60F D00A 



E611 BD5EBD 
E614 855C 
E616 BD5FBD 
E619 855D 



E61B 60 



E61C 68 

E61D AA 

E61E 68 

E61F 8A 

E620 20A5E4 



E623 4C3BD2 



E626 68 
E627 AA 
E628 68 
E629 8A 
E62A 20F7E5 



7449 
7450 
7451 
7452 
7453 
7454 
7455 
7456 
7457 
7458 
7459 
7460 
7461 
7462 
7463 
7464 
7465 
7466 
7467 
7468 
7469 
7470 
7471 
7472 
7473 
7474 
7475 
7476 
7477 
7478 
7479 
7480 
7481 
7482 
7483 

7484 
7485 
7486 
7487 
7488 
7489 
7490 
7491 
7492 
7493 
7494 
7495 
7496 
7497 
7498 
7499 
7500 
7501 
7502 
7503 
7504 
7505 
7506 
7507 



; Return to caller 

RTS 

; Branch to subroutine exit if decremented use counter not zero 

INUEB BNZ INUED 

LDA SUCTBL+1,X 

BNZ INUED 
ifdef BIG 



LDA SXXTBL.Y 

BZ INUEC 

LDA IUTBL,X 
CLC 

ADC #2 

STA BZ60 

LDA IUTBL+1,X 

ADC #0 

STA BZ60+1 
INUEC 
endif 

Free memory by using segment load address as the stack pointer 

LDA SLATBL.X 

STA PSKPTR 

LDA SLATBL+1,X 

STA PSKPTR+1 

Return to caller 

INUED RTS 

PAGE 'Load/Unload segment to/from memory' 

Load segment if not already in memory 

CSP21 PLA 
TAX 
PLA 
TXA 
JSR LODSEG 



JMP UPDBY2 

; Remove segment from memory 

CSP22 PLA 
TAX 
PLA 
TXA 
JSR UNLSEG 
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E62D 4C3BD2 



E630 A0O1 
E632 B158 



address 
E634 0A 



E635 8572 
E637 4C7100 



E63A 203FFF 
E63D 4C3BD2 



E640 68 
E641 8578 
E643 68 
E644 8579 



E646 68 
E647 8574 
E649 68 
E64A 8575 



E64C 68 

E64D 8576 

E64F 68 

E650 8577 



7508 

7509 
7510 
7511 
7512 
7513 



+ 
+ 



7514 
7515 
7516 



+ 
+ 



7517 
7518 

7519 
7520 
7521 
7522 
7523 
7524 
7525 
7526 
7527 
7528 
7529 
7530 
7531 
7532 
7533 
7534 

7535 
7536 
7537 
7538 
7539 
7540 
7541 
7542 
7543 
7544 
7545 
7546 
7547 
7548 
7549 
7550 
7551 
7552 
7553 
7554 
7555 
7556 
7557 
7558 



JMP UPDBY2 

.PAGE 'Call system procedure' 

Extract procedure number 

CSP RDAUX 

IFDEF BIG 

STA RAMRDS 

ENDIF 

LDY #1 

LDA (IPCPTR),Y 

RDMAIN 

IFDEF BIG 

STA RAMRDC 

ENDIF 

Doubled procedure number becomes low order byte of routine 



ASL A 
ifndef GRIG 

STA CSPJMP+1 
CSPJMP JMP (CSPTBL) 
else 

STA JMPCSP+1 

JMP JMPCSP 
endif 

ifdef GRIG 
ifndef lie 



CSP7 JSR JTREE 
JMP UPDBY2 

.PAGE 'TREESEARCH' 



TREES PLA 
STA 
PLA 
STA 



PLA 
STA 
PLA 
STA 



PLA 
STA 
PLA 
STA 



A78 
A78+1 

A74 
A74+1 

A76 
A76+1 
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7559 


/ 




E652 A208 


7560 


INUEG LDX 


#8 


E654 A0FF 


7561 


LDY 


#-1 


E656 CA 


7562 


INUEI DEX 




E657 3037 


7563 


BM 


INUEM 


E659 C8 


7564 


INY 




E65A B178 


7565 


LDA 


(A78),Y 


E65C D176 


7566 


CMP 


(A76),Y 


E65E F0F6 


7567 


BE 


INUEI 


E660 3017 


7568 


BM 


INUEK 


E662 A008 


7569 


LDY 


#8 


E664 B176 


7570 


LDA 


(A76),Y 


E666 AA 


7571 


TAX 




E667 C8 


7572 


INY 




E668 B176 


7573 


LDA 


(A76),Y 


E66A C900 


7574 


CMP 


#0 


E66C D004 


7575 


BNE 


INUEJ 


E66E E000 


7576 


CPX 


#0 


E670 F02C 


7577 


BE 


INUEG 


E672 8676 


7578 


INUEJ STX 


A76 


E674 8577 


7579 


STA 


A76+1 


E676 4C52E6 


7580 


JMP 


INUEG 


E679 A00A 


7581 


INUEK LDY 


#10 


E67B B176 


7582 


LDA 


(A76),Y 


E67D AA 


7583 


TAX 




E67E C8 


7584 


INY 




E67F B176 


7585 


LDA 


(A76),Y 


E681 C900 


7586 


CMP 


#0 


E683 D004 


7587 


BNE 


INUEL 


E685 E000 


7588 


CPX 


#0 


E687 F00E 


7589 


BE 


INUEN 


E689 8676 


7590 


INUEL STX 


A76 


E68B 8577 


7591 


STA 


A76+1 


E68D 4C52E6 


7592 
7593 
7594 
7595 


JMP 


INUEG 


E690 A900 


7596 


INUEM LDA 


#0 


E692 48 


7597 


PHA 




E693 48 


7598 
7599 
7600 
7601 


PHA 

t 
t 




E694 4CA4E6 


7602 
7603 
7604 
7605 


JMP 

t 


INUEP 


E697 A9FF 


7606 


INUEN LDA 


#-1 


E699 48 


7607 


PHA 




E69A 48 


7608 
7609 
7610 
7611 


PHA 

t 
t 
t 




E69B 4CA4E6 


7612 
7613 
7614 
7615 


JMP 

t 


INUEP 


E69E A900 


7616 


INUEG LDA 


#<1 


E6A0 48 


7617 


PHA 




E6A1 A901 


7618 


LDA 


#>1 
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E6A3 48 


7619 
7620 
7621 
7622 


PHA 




E6A4 A000 


7623 ] 


[NUEP LDY 


#0 


E6A6 A576 


7624 


LDA 


A76 


E6A8 9174 


7625 


STA 


(A74),Y 


E6AA C8 


7626 


INY 




E6AB A577 


7627 


LDA 


A76+1 


E6AD 9174 


7628 
7629 
7630 
7631 


STA 


(A74),Y 


E6AF 4C3BD2 


7632 


JMP 


UPDBY2 




7633 


endif 






7634 


endif 






7635 


.PAGE 'FILLCHAR' 




7636 








7637 








7638 






E6B2 68 


7639 I 


=ILLC PLA 




E6B3 AA 


7640 


TAX 




E6B4 68 


7641 
7642 
7643 
7644 


PLA 




E6B5 68 


7645 


PLA 




E6B6 855E 


7646 


STA 


OPRND 


E6B8 68 


7647 


PLA 




E6B9 855F 


7648 
7649 
7650 
7651 


STA 


OPRND+1 


E6BB 1007 


7652 
7653 
7654 
7655 


BNM 


INUER 


E6BD 68 


7656 


PLA 




E6BE 68 


7657 


PLA 




E6BF 68 


7658 


PLA 




E6C0 68 


7659 
7660 
7661 
7662 


PLA 




E6C1 4C3BD2 


7663 
7664 
7665 
7666 


JMP 


UPDBY2 


E6C4 68 


7667 ] 


[NUER PLA 




E6C5 856A 


7668 


STA 


DSTPTR 


E6C7 68 


7669 


PLA 




E6C8 856B 


7670 
7671 
7672 
7673 


STA 


DSTPTR+1 


E6CA 18 


7674 


CLC 




E6CB 68 


7675 


PLA 




E6CC 656A 


7676 


ADC 


DSTPTR 


E6CE 856A 


7677 


STA 


DSTPTR 
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E6D0 68 


7678 


PLA 




E6D1 656B 


7679 


ADC 


DSTPTR+1 


E6D3 856B 


7680 
7681 
7682 
7683 


STA 


DSTPTR+1 


E6D5 8A 


7684 


TXA 




E6D6 A65F 


7685 


LDX 


OPRND+1 


E6D8 A000 


7686 


LDY 


#0 


E6DA E000 


7687 ] 


[NUES CPX 


#0 


E6DC F00B 


7688 


BE 


INUEU 


E6DE CA 


7689 


DEX 




E6DF 916A 


7690 ] 


[NUET STA 


(DSTPTR),Y 


E6E1 C8 


7691 


INY 




E6E2 D0FB 


7692 


BNZ 


INUET 


E6E4 E66B 


7693 


INC 


DSTPTR+1 


E6E6 4CDAE6 


7694 


JMP 


INUES 


E6E9 A65E 


7695 ] 


[NUEU LDX 


OPRND 


E6EB 4CF2E6 


7696 


JMP 


INUEW 


E6EE 916A 


7697 ] 


[NUEV STA 


(DSTPTR),Y 


E6F0 C8 


7698 


INY 




E6F1 CA 


7699 


DEX 




E6F2 D0FA 


7700 ] 


[NUEW BNZ 


INUEV 


E6F4 4C3BD2 


7701 


JMP 


UPDBY2 




7702 


.PAGE 'SCAN' 




7703 








7704 








7705 






E6F7 68 


7706 ! 


KAN PLA 




E6F8 68 


7707 


PLA 




E6F9 68 


7708 


PLA 




E6FA 857C 


7709 


STA 


A7C 


E6FC 68 


7710 


PLA 




E6FD 857D 


7711 


STA 


A7C+1 


E6FF 18 


7712 


CLC 




E700 68 


7713 


PLA 




E701 657C 


7714 


ADC 


A7C 


E703 857C 


7715 


STA 


A7C 


E705 8584 


7716 


STA 


A84 


E707 68 


7717 


PLA 




E708 657D 


7718 


ADC 


A7C+1 


E70A 857D 


7719 


STA 


A7C+1 


E70C 8585 


7720 


STA 


A85 


E70E 68 


7721 


PLA 




E70F 8588 


7722 


STA 


A88 


E711 68 


7723 


PLA 




E712 68 


7724 


PLA 




E713 858A 


7725 


STA 


A8A 


E715 68 


7726 


PLA 




E716 68 


7727 


PLA 




E717 855E 


7728 


STA 


OPRND 


E719 18 


7729 


CLC 




E71A 6584 


7730 


ADC 


A84 


E71C 8580 


7731 


STA 


A80 


E71E 68 


7732 


PLA 




E71F 855F 


7733 


STA 


OPRND+1 


E721 8586 


7734 


STA 


A86 


E723 6585 


7735 


ADC 


A84+1 


E725 8581 


7736 


STA 


A80+1 
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E727 1011 


7737 


BNM 


INUEX 


E729 AA 


7738 


TAX 




E72A A55E 


7739 


LDA 


OPRND 


E72C 49FF 


7740 


EOR 


#$FF 


E72E 18 


7741 


CLC 




E72F 6901 


7742 


ADC 


#1 


E731 855E 


7743 


STA 


OPRND 


E733 8A 


7744 


TXA 




E734 49FF 


7745 


EOR 


#$FF 


E736 6900 


7746 


ADC 


#0 


E738 855F 


7747 


STA 


OPRND+1 


E73A A000 


7748 ] 


[NUEX LDY 


#0 


E73C B17C 


7749 ] 


[NUEY LDA 


(A7C),Y 


E73E C588 


7750 


CMP 


A88 


E740 D007 


7751 


BNE 


INUFC 


E742 A58A 


7752 


LDA 


A8A 


E744 F02E 


7753 


BZ 


INUFG 


E746 4C4DE7 


7754 


JMP 


INUFD 


E749 A58A 


7755 ] 


[NUFC LDA 


A8A 


E74B D027 


7756 


BNZ 


INUFG 


E74D A580 


7757 ] 


[NUFD LDA 


A80 


E74F C57C 


7758 


CMP 


A7C 


E751 D006 


7759 


BNE 


INUFE 


E753 A581 


7760 


LDA 


A81 


E755 C57D 


7761 


CMP 


A7C+1 


E757 F01B 


7762 


BE 


INUFG 


E759 A586 


7763 ] 


[NUFE LDA 


A86 


E75B 3009 


7764 


BM 


INUFF 


E75D E67C 


7765 


INC 


A7C 


E75F D0DB 


7766 


BNZ 


INUEY 


E761 E67D 


7767 


INC 


A7C+1 


E763 4C3CE7 


7768 


JMP 


INUEY 


E766 A57C 


7769 ] 


[NUFF LDA 


A7C 


E768 38 


7770 


CLB 




E769 E901 


7771 


SBB 


#1 


E76B 857C 


7772 


STA 


A7C 


E76D B0CD 


7773 


BNB 


INUEY 


E76F C67D 


7774 


DEC 


A7C+1 


E771 4C3CE7 


7775 


JMP 


INUEY 


E774 A57C 


7776 ] 


[NUFG LDA 


A7C 


E776 38 


7777 


CLB 




E777 E584 


7778 


SBB 


A84 


E779 AA 


7779 


TAX 




E77A A57D 


7780 


LDA 


A7C+1 


E77C E585 


7781 


SBB 


A85 


E77E 48 


7782 


PHA 




E77F 8A 


7783 


TXA 




E780 48 


7784 


PHA 




E781 4C3BD2 


7785 


JMP 


UPDBY2 




7786 


.PAGE 'EXIT' 




7787 








7788 








7789 






E784 68 


7790 [ 


EXIT PLA 




E785 8578 


7791 


STA 


PROCNO 


E787 68 


7792 
7793 
7794 
7795 


PLA 
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E788 68 


7796 


PLA 




E789 8586 


7797 


STA 


SEGNO 


E78B 68 


7798 
7799 
7800 
7801 


PLA 






7802 


RDAUX 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDS 




+ 


ENDIF 




E78C A001 


7803 


LDY 


#1 


E78E B154 


7804 


LDA 


(JTBPTR),Y 




7805 


RDMAIIN 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDC 




+ 


ENDIF 




E790 1003 


7806 
7807 
7808 
7809 


BNM 


INUFJ 


E792 4CA0D6 


7810 
7811 
7812 
7813 


JMP 


XIT 


E795 A554 


7814 ] 


[NUFJ LDA 


JTBPTR 


E797 38 


7815 


CLB 




E798 E904 


7816 


SBB 


#4 


E79A 8574 


7817 


STA 


A74 


E79C A555 


7818 


LDA 


JTBPTR+1 


E79E E900 


7819 


SBB 


#0 


E7A0 8575 


7820 
7821 
7822 
7823 


STA 


A74+1 




7824 


RDAUX 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDS 




+ 


ENDIF 




E7A2 A000 


7825 


LDY 


#0 


E7A4 A574 


7826 


LDA 


A74 


E7A6 38 


7827 


CLB 




E7A7 F174 


7828 


SBB 


(A74),Y 


E7A9 8558 


7829 


STA 


IPCPTR 


E7AB C8 


7830 


INY 




E7AC A575 


7831 


LDA 


A74+1 


E7AE F174 


7832 


SBB 


(A74),Y 


E7B0 8559 


7833 
7834 
7835 
7836 


STA 


IPCPTR+1 


E7B2 88 


7837 


DEY 




E7B3 A578 


7838 


LDA 


PROCNO 


E7B5 D154 


7839 


CMP 


(JTBPTR), Y 


E7B7 D009 


7840 


BNE 


INUFK 


E7B9 A586 


7841 


LDA 


SEGNO 


E7BB D156 


7842 


CMP 


(SEGPTR),Y 


E7BD D003 


7843 
7844 
7845 
7846 


BNE 


INUFK 
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E7BF 4C53D2 


7847 
7848 
7849 
7850 


JMP 


EXECPC 




7851 ] 


[NUFK RDMAIN 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDC 




+ 


ENDIF 




E7C2 A552 


7852 


LDA 


MSPTR 


E7C4 8588 


7853 


STA 


A88 


E7C6 A553 


7854 


LDA 


MSPTR+1 


E7C8 8589 


7855 
7856 
7857 
7858 


STA 


A88+1 


E7CA 4CD9E7 


7859 
7860 
7861 
7862 


JMP 


INUFO 


E7CD A002 


7863 ] 


[NUFM LDY 


#2 


E7CF B188 


7864 


LDA 


(A88),Y 


E7D1 AA 


7865 


TAX 




E7D2 C8 


7866 


INY 




E7D3 B188 


7867 


LDA 


(A88),Y 


E7D5 8589 


7868 


STA 


A88+1 


E7D7 8688 


7869 
7870 
7871 
7872 


STX 


A88 


E7D9 A004 


7873 ] 


[NUFO LDY 


#4 


E7DB B188 


7874 


LDA 


(A88),Y 


E7DD 8576 


7875 


STA 


A76 


E7DF C8 


7876 


INY 




E7E0 B188 


7877 


LDA 


(A88),Y 


E7E2 8577 


7878 


STA 


A76+1 




7879 


RDAUX 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDS 




+ 


ENDIF 






7880 








7881 








7882 






E7E4 A001 


7883 


LDY 


#1 


E7E6 B176 


7884 


LDA 


(A76),Y 




7885 


RDMAIN 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDC 




+ 


ENDIF 




E7E8 1003 


7886 
7887 
7888 
7889 


BNM 


INUFP 


E7EA 4CBFD1 


7890 
7891 
7892 
7893 


JMP 


ERR3 


E7ED A576 


7894 ] 


[NUFP LDA 


A76 


E7EF 38 


7895 


CLB 




E7F0 E904 


7896 


SBB 


#4 


E7F2 8576 


7897 


STA 


A76 
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E7F4 


B002 


7898 


BNB 


INUFQ 


E7F6 


C677 


7899 
7900 
7901 
7902 


DEC 


A76+1 


E7F8 


A000 


7903 INUFQ LDY 


#0 


E7FA 


A576 


7904 


LDA 


A76 


E7FC 


38 


7905 
7906 


CLB 
RDAUX 








+ 


IFDEF 


BIG 






+ 


STA 


RAMRDS 






+ 


ENDIF 




E7FD 


F176 


7907 
7908 


SBB 

RDMAIN 


(A76),Y 






+ 


IFDEF 


BIG 






+ 


STA 


RAMRDC 






+ 


ENDIF 




E7FF 


A008 


7909 


LDY 


#8 


E801 


9188 


7910 


STA 


(A88),Y 


E803 


A001 


7911 


LDY 


#1 


E805 


A577 


7912 
7913 


LDA 
RDAUX 


A76+1 






+ 


IFDEF 


BIG 






+ 


STA 


RAMRDS 






+ 


ENDIF 




E807 


F176 


7914 
7915 


SBB 
RDMAIN 


(A76),Y 






+ 


IFDEF 


BIG 






+ 


STA 


RAMRDC 






+ 


ENDIF 




E809 


A009 


7916 


LDY 


#9 


E80B 


9188 


7917 
7918 
7919 
7920 


STA 


(A88),Y 


E80D 


A004 


7921 


LDY 


#4 


E80F 


A578 


7922 
7923 


LDA 
RDAUX 


PROCNO 






+ 


IFDEF 


BIG 






+ 


STA 


RAMRDS 






+ 


ENDIF 




E811 


D176 


7924 
7925 


CMP 
RDMAIN 


(A76),Y 






+ 


IFDEF 


BIG 






+ 


STA 


RAMRDC 






+ 


ENDIF 








7926 


ifndef GRIG 






7927 E 


3NEUFM 








7928 


endif 




E813 


D0B8 


7929 
7930 
7931 
7932 


BNE 


INUFM 


E815 


A006 


7933 


LDY 


#6 


E817 


B188 


7934 


LDA 


(A88),Y 


E819 


8574 


7935 


STA 


A74 


E81B 


C8 


7936 


INY 




E81C 


B188 


7937 


LDA 


(A88),Y 


E81E 


8575 


7938 
7939 


STA 


A74+1 
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7940 


/ 








7941 


/ 






E820 A586 


7942 




LDA 


SEGNO 


E822 A000 


7943 
7944 




LDY 
RDAUX 


#0 




+ 




IFDEF 


BIG 




+ 




STA 


RAMRDS 




+ 




ENDIF 




E824 D174 


7945 
7946 




CMP 
RDMAIIN 


(A74),Y 




+ 




IFDEF 


BIG 




+ 




STA 


RAMRDC 




+ 




ENDIF 






7947 


ifnd 


ef GRIG 




7948 




BNE 


BNEUFM 




7949 


else 






E826 D0A5 


7950 




BNE 


INUFM 




7951 


end! 


f 






7952 










7953 










7954 








E828 4C53D2 


7955 




JMP 


EXECPC 




7956 


; .PAGE 'Other op codes' 




7957 










7958 




Breakpoint 




7959 








E82B A001 


7960 


BPT 


LDY 


#1 


E82D 2055D1 


7961 
7962 
7963 
7964 




JSR 


EBIG2M 


E830 4C3BD2 


7965 
7966 




JMP 


UPDBY2 


*S(CS|CS|CS(CS(CS|C!|CS(CS(CS|CS|CS(CS(CS|C!|CS(CS(CS|CS|CS(CS(CS|C!|CS(CS(CS|C!|CS(CS(C!|C!|CS|CS(CS|CS|CS(CS(CS|C!|CS(CS(CS|C!|CS(CS(CS|CS|CS(CS(CS|CSK 




7967 










7968 




Add 2 


to pointer 




7969 








E833 A558 


7970 


CSP3g 


LDA 


IPCPTR 


E835 18 


7971 




CLC 




E836 6902 


7972 




ADC 


#2 


E838 8558 


7973 




STA 


IPCPTR 


E83A 9002 


7974 




BNC 


INUFR 


E83C E659 


7975 
7976 
7977 
7978 




INC 


IPCPTR+1 


E83E 4CE3D1 


7979 


INUFR JMP 


ERR8 




7980 








**!|<*******!|<**!(!!|<!|(S|<S|(S|(S|(S|<S|<!|(!|<S|<!|<!|<!|(S|<!|<!|(!|<!|<*!|<**=|<****!|<****!|<**!|<****!|<**!|<***** 




7981 










7982 




Time 






7983 








E841 68 


7984 


TIME 


PLA 




E842 8574 


7985 




STA 


A74 


E844 68 


7986 




PLA 




E845 8575 


7987 
7988 
7989 
7990 




STA 


A74+1 
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E847 


68 


7991 


PLA 




E848 


8576 


7992 


STA 


A76 


E84A 


68 


7993 


PLA 




E84B 


8577 


7994 
7995 
7996 
7997 


STA 


A76+1 


E84D 


A000 


7998 


LDY 


#0 


E84F 


A900 


7999 


LDA 


#0 


E851 


9174 


8000 


STA 


(A74),Y 


E853 


9176 


8001 


STA 


(A76),Y 


E855 


C8 


8002 


INY 




E856 


9174 


8003 


STA 


(A74),Y 


E858 


9176 


8004 
8005 
8006 
8007 


STA 


(A76),Y 


E85A 


4C3BD2 


8008 
8009 


JMP 


UPDBY2 


*!|<!|(!|(S|(S|<!|(S|(S|(S|(S|(S|(S|(S|(S|(S|(!|<!|<!|(!|(!|<!|<!|<S|<!|<!|<!|<!|<!|<!|<!|<!|<!|<S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S| 






8010 










8011 










8012 






E85D 


A568 


8013 ] 


[NUFS LDA 


SRCPTR 


E85F 


18 


8014 


CLC 




E860 


655E 


8015 


ADC 


OPRND 


E862 


8568 


8016 


STA 


SRCPTR 


E864 


A569 


8017 


LDA 


SRCPTR+1 


E866 


655F 


8018 


ADC 


OPRND+1 


E868 


8569 


8019 
8020 
8021 
8022 


STA 


SRCPTR+1 


E86A 


A56A 


8023 


LDA 


DSTPTR 


E86C 


18 


8024 


CLC 




E86D 


655E 


8025 


ADC 


OPRND 


E86F 


856A 


8026 


STA 


DSTPTR 


E871 


A56B 


8027 


LDA 


DSTPTR+1 


E873 


655F 


8028 


ADC 


OPRND+1 


E875 


856B 


8029 
8030 
8031 
8032 


STA 


DSTPTR+1 


E877 


A0FF 


8033 


LDY 


#$FF 


E879 


A65F 


8034 


LDX 


OPRND+1 


E87B 


C669 


8035 ] 


[NUFT DEC 


SRCPTR+1 


E87D 


C66B 


8036 


DEC 


DSTPTR+1 


E87F 


E000 


8037 


CPX 


#0 


E881 


F00D 


8038 


BE 


INUFV 


E883 


CA 


8039 


DEX 




E884 


B168 


8040 ] 


[NUFU LDA 


(SRCPTR), Y 


E886 


916A 


8041 


STA 


(DSTPTR), Y 


E888 


88 


8042 


DEY 




E889 


C0FF 


8043 


CPY 


#$FF 


E88B 


D0F7 


8044 


BNE 


INUFU 


E88D 


4C7BE8 


8045 


JMP 


INUFT 


E890 


A65E 


8046 ] 


[NUFV LDX 


OPRND 


E892 


4C9BE8 


8047 


JMP 


INUFX 


E895 


B168 


8048 ] 


[NUFW LDA 


(SRCPTR), Y 


E897 


916A 


8049 


STA 


(DSTPTR), Y 
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E899 


88 


8050 


DEY 




E89A 


CA 


8051 


DEX 




E89B 


D0F8 


8052 ] 
8053 
8054 
8055 


[NUFX BNZ 


INUFW 


E89D 


4C3BD2 


8056 


JMP 


UPDBY2 






8057 


.PAGE 'MOVELEFT or ^ 






8058 










8059 










8060 






E8A0 


68 


8061 MOVELR 


PLA 


E8A1 


855E 


8062 


STA 


OPRND 


E8A3 


68 


8063 


PLA 




E8A4 


855F 


8064 
8065 
8066 
8067 


STA 


OPRND+1 






8068 


ifndef GRIG 






8069 


BM 


INUFY 






8070 


else 




E8A6 


100B 


8071 
8072 
8073 
8074 


BNM 


INUFY 


E8A8 


68 


8075 


PLA 




E8A9 


68 


8076 


PLA 




E8AA 


68 


8077 


PLA 




E8AB 


68 


8078 


PLA 




E8AC 


68 


8079 


PLA 




E8AD 


68 


8080 


PLA 




E8AE 


68 


8081 


PLA 




E8AF 


68 


8082 
8083 
8084 
8085 


PLA 




E8B0 


4C3BD2 


8086 

8087 ] 

8088 

8089 

8090 

8091 


JMP 
[NUFY 
endif 


UPDBY2 


E8B3 


68 


8092 


PLA 




E8B4 


856A 


8093 


STA 


DSTPTR 


E8B6 


68 


8094 


PLA 




E8B7 


856B 


8095 
8096 
8097 
8098 


STA 


DSTPTR+1 


E8B9 


18 


8099 


CLC 




E8BA 


68 


8100 


PLA 




E8BB 


656A 


8101 


ADC 


DSTPTR 


E8BD 


856A 


8102 


STA 


DSTPTR 


E8BF 


68 


8103 


PLA 




E8C0 


656B 


8104 


ADC 


DSTPTR+1 


E8C2 


856B 


8105 
8106 
8107 
8108 


STA 


DSTPTR+1 
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E8C4 68 


8109 


PLA 




E8C5 8568 


8110 


STA 


SRCPTR 


E8C7 68 


8111 


PLA 




E8C8 8569 


8112 
8113 
8114 
8115 


STA 


SRCPTR+1 


E8CA 18 


8116 


CLC 




E8CB 68 


8117 


PLA 




E8CC 6568 


8118 


ADC 


SRCPTR 


E8CE 8568 


8119 


STA 


SRCPTR 


E8D0 68 


8120 


PLA 




E8D1 6569 


8121 


ADC 


SRCPTR+1 


E8D3 8569 


8122 
8123 
8124 
8125 


STA 


SRCPTR+1 




8126 


RDAUX 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDS 




+ 


ENDIF 




E8D5 A001 


8127 


LDY 


#1 


E8D7 B158 


8128 


LDA 


(IPCPTR),Y 




8129 


RDMAIN 






+ 


IFDEF 


BIG 




+ 


STA 


RAMRDC 




+ 


ENDIF 




E8D9 C902 


8130 


CMP 


#2 


E8DB D080 


8131 
8132 
8133 
8134 


BNE 


INUFS 


E8DD A65F 


8135 / 


\E8DD LDX 


OPRND+1 


E8DF A000 


8136 


LDY 


#0 


E8E1 E000 


8137 ] 


[NUFZ CPX 


#0 


E8E3 F00F 


8138 


BE 


INUGB 


E8E5 CA 


8139 


DEX 




E8E6 B168 


8140 ] 


[NUGA LDA 


(SRCPTR), Y 


E8E8 916A 


8141 


STA 


(DSTPTR),Y 


E8EA C8 


8142 


INY 




E8EB D0F9 


8143 


BNZ 


INUGA 


E8ED E66B 


8144 


INC 


DSTPTR+1 


E8EF E669 


8145 


INC 


SRCPTR+1 


E8F1 4CE1E8 


8146 


JMP 


INUFZ 


E8F4 A65E 


8147 ] 


[NUGB LDX 


OPRND 


E8F6 4CFFE8 


8148 


JMP 


INUGD 


E8F9 B168 


8149 ] 


[NUGC LDA 


(SRCPTR), Y 


E8FB 916A 


8150 


STA 


(DSTPTR),Y 


E8FD C8 


8151 


INY 




E8FE CA 


8152 


DEX 




E8FF D0F8 


8153 ] 
8154 
8155 
8156 


[NUGD BNZ 


INUGC 


E901 4C3BD2 


8157 


JMP 


UPDBY2 




8158 


ifndef GRIG 




8159 








8160 








8161 








8162 ] 


[NUFY PLA 
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8163 




PLA 










8164 




PLA 










8165 




PLA 










8166 




PLA 










8167 




PLA 










8168 




PLA 










8169 




PLA 










8170 














8171 














8172 














8173 




JMP 


UPDBY2 








8174 


endi 


f 










8175 


; .PAGE 'Free memory' 








8176 














8177 




Branch if GDIR pointer 


is zero 






8178 










E904 


38 


8179 


FRE 


CLB 






E905 


ADE7BD 


8180 




LDA 


SYCGDP+1 




E908 


F00E 


8181 
8182 
8183 
8184 




BZ 
Use 


INUGE 
GDIR pointer 




E90A 


A55C 


8185 




LDA 


PSKPTR 




E90C 


EDE6BD 


8186 




SBB 


SYCGDP 




E90F 


AA 


8187 




TAX 






E910 


A55D 


8188 




LDA 


PSKPTR+1 




E912 


EDE7BD 


8189 
8190 
8191 
8192 


t 
t 
t 


SBB 


SYCGDP+1 




E915 


4C21E9 


8193 
8194 
8195 
8196 


t 
t 
t 


JMP 
Use 


INUGF 
heap pointer 




E918 


A55C 


8197 


INUGE 


LDA 


PSKPTR 




E91A 


E55A 


8198 




SBB 


HPPTR 




E91C 


AA 


8199 




TAX 






E91D 


A55D 


8200 




LDA 


PSKPTR+1 




E91F 


E55B 


8201 
8202 




SBB 


HPPTR+1 








8203 




Divide result by 2 and 


push it 






8204 










E921 


4A 


8205 


INUGF 


LSR 


A 




E922 


48 


8206 




PHA 






E923 


8A 


8207 




TXA 






E924 


6A 


8208 




ROR 


A 




E925 


48 


8209 
8210 
8211 
8212 




PHA 






E926 


4C3BD2 


8213 




JMP 


UPDBY2 








8214 


; .PAGE 'PL 


jll real value from 


stack' 






8215 














8216 




Save 


(return address - 


1) 






8217 










E929 


68 


8218 


PULLFP 


PLA 




E92A 


8588 


8219 




STA 


FPRETA 




E92C 


68 


8220 




PLA 
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E92D 8589 


8221 
8222 
8223 
8224 


STA 


FPRETA+1 


E92F A900 


8225 


LDA 


#0 


E931 9505 


8226 


STA 


P0BASE+5,X 


E933 9500 


8227 


STA 


P0BASE,X 


E935 9501 


8228 
8229 
8230 
8231 


STA 


P0BASE+1,X 


E937 68 


8232 


PLA 




E938 9504 


8233 


STA 


P0BASE+4,X 


E93A 68 


8234 


PLA 




E93B 9503 


8235 


STA 


P0BASE+3,X 


E93D 68 


8236 


PLA 




E93E 2A 


8237 


ROL 


A 


E93F 3601 


8238 


ROL 


P0BASE+1,X 


E941 38 


8239 


SEC 




E942 6A 


8240 


ROR 


A 


E943 9502 


8241 


STA 


P0BASE+2,X 


E945 68 


8242 


PLA 




E946 18 


8243 


CLC 




E947 2A 


8244 


ROL 


A 


E948 7600 


8245 


ROR 


P0BASE,X 


E94A 1501 


8246 


ORA 


P0BASE+1,X 


E94C 9501 


8247 
8248 


STA 


P0BASE+1,X 




8249 


Return to caller 




8250 






E94E E688 


8251 


INC 


FPRETA 


E950 D002 


8252 


BNZ 


INUGR 


E952 E689 


8253 


INC 


FPRETA+1 


E954 6C8800 


8254 ] 


[NUGR JMP 


(FPRETA) 




8255 


.PAGE 'Push real value 




8256 








8257 


Save 


(return addr 




8258 






E957 68 


8259 F 


'USHFP 


PLA 


E958 8588 


8260 


STA 


FPRETA 


E95A 68 


8261 


PLA 




E95B 8589 


8262 
8263 
8264 
8265 


STA 


FPRETA+1 


E95D B501 


8266 


LDA 


P0BASE+1,X 


E95F 18 


8267 


CLC 




E960 6A 


8268 


ROR 


A 


E961 1500 


8269 


ORA 


P0BASE,X 


E963 48 


8270 


PHA 




E964 B502 


8271 


LDA 


P0BASE+2,X 


E966 2A 


8272 


ROL 


A 


E967 7601 


8273 


ROR 


P0BASE+1,X 


E969 6A 


8274 


ROR 


A 


E96A 48 


8275 


PHA 




E96B B503 


8276 


LDA 


P0BASE+3,X 


E96D 48 


8277 


PHA 




E96E B504 


8278 


LDA 


P0BASE+4,X 


E970 48 


8279 


PHA 
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E971 E688 

E973 D002 

E975 E689 

E977 6C8800 



8280 
8281 
8282 
8283 
8284 
8285 
8286 



Return to caller 



INC 

BNZ 

INC 

INUHF JMP 



FPRETA 
INUHF 
FPRETA+1 
(FPRETA) 



E97A 901D 



E97C 6682 
E97E 6683 
E980 6684 
E982 6685 
E984 9006 



E986 A901 
E988 0585 
E98A 8585 



E98C E681 



E98E A9FF 
E990 C581 
E992 D005 



E994 68 
E995 68 



E996 4CF3D1 



E999 60 



ROR 
ROR 
ROR 
ROR 
BNC 



LDA 
ORA 
STA 



8287 

8288 ; 

8289 ; 

8290 ; 

8291 INUHG BNC 

8292 ; 

8293 ; 

8294 ; 
8295 
8296 
8297 
8298 
8299 
8300 
8301 
8302 
8303 
8304 
8305 
8306 
8307 
8308 
8309 
8310 
8311 
8312 
8313 
8314 
8315 
8316 
8317 
8318 
8319 
8320 
8321 
8322 
8323 
8324 
8325 
8326 
8327 
8328 
8329 



PAGE 'FP subroutines' 



INUHM INC 



LDA 
CMP 
BNE 



PLA 
PLA 



JMP 



INUHN 



FPREG3+2 
FPREG3+3 
FPREG3+4 
FPREG3+5 
INUHM 



#$01 

FPREG3+5 

FPREG3+5 



FPREG3+1 



#$FF 

FPREG3+1 

INUHN 



ERR12 



INUHN RTS 



8330 

8331 

8332 
E99A A582 8333 INUHP LDA FPREG3+2 
E99C 301B 8334 BM INUHU 

8335 

8336 

8337 
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E99E 


18 


8338 


CLC 




E99F 


2685 


8339 


ROL 


FPREG3+5 


E9A1 


2684 


8340 


[NUHR ROL 


FPREG3+4 


E9A3 


2683 


8341 


ROL 


FPREG3+3 


E9A5 


2682 


8342 


ROL 


FPREG3+2 


E9A7 


3007 


8343 
8344 
8345 
8346 


BM 


INUHS 


E9A9 


18 


8347 


CLC 




E9AA 


C681 


8348 


DEC 


FPREG3+1 


E9AC 


D0F3 


8349 
8350 
8351 
8352 


BNZ 

t 


INUHR 


E9AE 


F004 


8353 
8354 
8355 
8356 


BZ 

t 
t 
t 


INUHT 


E9B0 


C681 


8357 


[NUHS DEC 


FPREG3+1 


E9B2 


D005 


8358 
8359 
8360 
8361 


BNZ 


INUHU 


E9B4 


68 


8362 


[NUHT PLA 




E9B5 


68 


8363 
8364 
8365 
8366 


PLA 

t 
t 
t 




E9B6 


4CF3D1 


8367 
8368 
8369 
8370 


JMP 

/ 
t 
t 


ERR12 


E9B9 


60 


8371 
8372 


[NUHU RTS 




*S(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(C!|C!|CS(CS(C!(C!|C!(C 


(CS(C!|CS(CS(C!|CS|CS(CS(CS|CS| 


<S(CS(C!|CS|CS(CS(CS|CS|CS(CS| 






8373 










8374 










8375 






E9BA 


18 


8376 


[NUHW CLC 




E9BB 


2685 


8377 


ROL 


FPREG3+5 


E9BD 


9018 


8378 


BNC 


INUID 


E9BF 


E684 


8379 


INC 


FPREG3+4 


E9C1 


D006 


8380 


BNZ 


INUIA 


E9C3 


E683 


8381 


INC 


FPREG3+3 


E9C5 


D002 


8382 


BNZ 


INUIA 


E9C7 


E682 


8383 


INC 


FPREG3+2 


E9C9 


A585 


8384 


[NUIA LDA 


FPREG3+5 


E9CB 


D004 


8385 


BNZ 


INUIC 


E9CD 


4684 


8386 


LSR 


FPREG3+4 


E9CF 


0684 


8387 


ASL 


FPREG3+4 


E9D1 


A582 


8388 


[NUIC LDA 


FPREG3+2 


E9D3 


18 


8389 


CLC 




E9D4 


D001 


8390 


BNZ 


INUID 


E9D6 


38 


8391 


SEC 




E9D7 


60 


8392 

8393 
8394 
8395 


[NUID RTS 
; .PAGE 
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8396 






E9D8 A575 


8397 INUIF LDA 


FPREGl+1 


E9DA 8581 


8398 


STA 


FPREG3+1 


E9DC 38 


8399 


SEC 




E9DD E57B 


8400 


SBC 


FPREG2+1 


E9DF B01B 


8401 


BC 


INUIJ 


E9E1 49FF 


8402 


EOR 


#$FF 


E9E3 AA 


8403 


TAX 




E9E4 E8 


8404 


INX 




E9E5 A57B 


8405 


LDA 


FPREG2+1 


E9E7 8581 


8406 


STA 


FPREG3+1 


E9E9 4676 


8407 INUIH LSR 


FPREGl+2 


E9EB 6677 


8408 


ROR 


FPREGl+3 


E9ED 6678 


8409 


ROR 


FPREGl+4 


E9EF 6679 


8410 


ROR 


FPREGl+5 


E9F1 9006 


8411 


BNC 


INUII 


E9F3 A901 


8412 


LDA 


#$01 


E9F5 0579 


8413 


ORA 


FPREGl+5 


E9F7 8579 


8414 


STA 


FPREGl+5 


E9F9 CA 


8415 INUII DEX 




E9FA D0ED 


8416 


BNZ 


INUIH 


E9FC F014 


8417 INUIJ BZ 


INUIM 


E9FE AA 


8418 


TAX 




E9FF 467C 


8419 INUIK LSR 


FPREG2+2 


EA01 667D 


8420 


ROR 


FPREG2+3 


EA03 667E 


8421 


ROR 


FPREG2+4 


EA05 667F 


8422 


ROR 


FPREG2+5 


EA07 9006 


8423 


BNC 


INUIL 


EA09 A901 


8424 


LDA 


#$01 


EA0B 057F 


8425 


ORA 


FPREG2+5 


EA0D 857F 


8426 


STA 


FPREG2+5 


EA0F CA 


8427 INUIL DEX 




EA10 D0ED 


8428 


BNZ 


INUIK 


EA12 60 


8429 INUIM RTS 






8430 


.PAGE 






8431 








8432 








8433 






EA13 20D8E9 


8434 F 


=ADD JSR 


INUIF 


EA16 18 


8435 


CLC 




EA17 A579 


8436 


LDA 


FPREGl+5 


EA19 657F 


8437 


ADC 


FPREG2+5 


EAIB 8585 


8438 


STA 


FPREG3+5 


EAID A578 


8439 


LDA 


FPREGl+4 


EAIF 657E 


8440 


ADC 


FPREG2+4 


EA21 8584 


8441 


STA 


FPREG3+4 


EA23 A577 


8442 


LDA 


FPREGl+3 


EA25 657D 


8443 


ADC 


FPREG2+3 


EA27 8583 


8444 


STA 


FPREG3+3 


EA29 A576 


8445 


LDA 


FPREGl+2 


EA2B 657C 


8446 


ADC 


FPREG2+2 


EA2D 8582 


8447 


STA 


FPREG3+2 


EA2F 207AE9 


8448 


JSR 


INUHG 


EA32 20BAE9 


8449 


JSR 


INUHW 


EA35 207AE9 


8450 


JSR 


INUHG 


EA38 60 


8451 


RTS 






8452 


.PAGE 






8453 
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8454 








8455 






EA39 20D8E9 


8456 FSUB JSR 


INUIF 


EA3C 38 


8457 


SEC 




EA3D A57F 


8458 


LDA 


FPREG2+5 


EA3F E579 


8459 


SBC 


FPREGl+5 


EA41 8585 


8460 


STA 


FPREG3+5 


EA43 A57E 


8461 


LDA 


FPREG2+4 


EA45 E578 


8462 


SBC 


FPREGl+4 


EA47 8584 


8463 


STA 


FPREG3+4 


EA49 A57D 


8464 


LDA 


FPREG2+3 


EA4B E577 


8465 


SBC 


FPREGl+3 


EA4D 8583 


8466 


STA 


FPREG3+3 


EA4F A57C 


8467 


LDA 


FPREG2+2 


EA51 E576 


8468 


SBC 


FPREGl+2 


EA53 8582 


8469 


STA 


FPREG3+2 


EA55 A582 


8470 


LDA 


FPREG3+2 


EA57 D00F 


8471 


BNZ 


INUIR 


EA59 A583 


8472 


LDA 


FPREG3+3 


EA5B D00B 


8473 


BNZ 


INUIR 


EA5D A584 


8474 


LDA 


FPREG3+4 


EA5F D007 


8475 


BNZ 


INUIR 


EA61 A900 


8476 


LDA 


#0 


EA63 8581 


8477 


STA 


FPREG3+1 


EA65 8580 


8478 


STA 


FPREG3 


EA67 60 


8479 


RTS 




EA68 209AE9 


8480 INUIR JSR 


INUHP 


EA6B 20BAE9 


8481 


JSR 


INUHW 


EA6E 207AE9 


8482 


JSR 


INUHG 


EA71 60 


8483 


RTS 






8484 


.PAGE 






8485 








8486 








8487 






EA72 A575 


8488 F 


=CMP LDA 


FPREGl+1 


EA74 C57B 


8489 


CMP 


FPREG2+1 


EA76 9022 


8490 


BL 


INUIW 


EA78 D024 


8491 


BNE 


INUJB 


EA7A A576 


8492 


LDA 


FPREGl+2 


EA7C C57C 


8493 


CMP 


FPREG2+2 


EA7E 901A 


8494 


BL 


INUIW 


EA80 D01C 


8495 


BNE 


INUJB 


EA82 A577 


8496 


LDA 


FPREGl+3 


EA84 C57D 


8497 


CMP 


FPREG2+3 


EA86 9012 


8498 


BL 


INUIW 


EA88 D014 


8499 


BNE 


INUJB 


EA8A A578 


8500 


LDA 


FPREGl+4 


EA8C C57E 


8501 


CMP 


FPREG2+4 


EA8E 900A 


8502 


BL 


INUIW 


EA90 D00C 


8503 


BNE 


INUJB 


EA92 A579 


8504 


LDA 


FPREGl+5 


EA94 C57F 


8505 


CMP 


FPREG2+5 


EA96 9002 


8506 


BL 


INUIW 


EA98 D004 


8507 


BNE 


INUJB 


EA9A A57A 


8508 ] 


[NUIW LDA 


FPREG2 


EA9C 38 


8509 


SEC 




EA9D 60 


8510 


RTS 




EA9E A675 


8511 ] 


[NUJB LDX 


FPREGl+1 


EAA0 A47B 


8512 


LDY 


FPREG2+1 
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EAA2 8475 


8513 


STY 


FPREGl+1 


EAA4 867B 


8514 


STX 


FPREG2+1 


EAA6 A676 


8515 


LDX 


FPREGl+2 


EAA8 A47C 


8516 


LDY 


FPREG2+2 


EAAA 8476 


8517 


STY 


FPREGl+2 


EAAC 867C 


8518 


STX 


FPREG2+2 


EAAE A677 


8519 


LDX 


FPREGl+3 


EAB0 A47D 


8520 


LDY 


FPREG2+3 


EAB2 8477 


8521 


STY 


FPREGl+3 


EAB4 867D 


8522 


STX 


FPREG2+3 


EAB6 A678 


8523 


LDX 


FPREGl+4 


EAB8 A47E 


8524 


LDY 


FPREG2+4 


EABA 8478 


8525 


STY 


FPREGl+4 


EABC 867E 


8526 


STX 


FPREG2+4 


EABE A574 


8527 


LDA 


FPREGl 


EAC0 18 


8528 


CLC 




EACl 60 


8529 


RTS 






8530 


.PAGE 'Floating poir 




8531 








8532 








8533 






EAC2 A274 


8534 / 


\DR LDX 


#>FPREG1 


EAC4 2029E9 


8535 


JSR 


PULLFP 


EAC7 A27A 


8536 


LDX 


#>FPREG2 


EAC9 2029E9 


8537 
8538 


JSR 


PULLFP 




8539 


Branch if zero 




8540 






EACC A575 


8541 


LDA 


FPREGl+1 


EACE D008 


8542 
8543 


BNZ 


INUJG 




8544 


Skip 


add logic 




8545 






EAD0 A27A 


8546 


LDX 


#>FPREG2 


EAD2 2057E9 


8547 
8548 
8549 
8550 


JSR 


PUSHFP 


EAD5 4C4DD2 


8551 
8552 


JMP 


UPDBYl 




8553 


Branch if zero 




8554 






EAD8 A57B 


8555 ] 


[NUJG LDA 


FPREG2+1 


EADA D008 


8556 
8557 


BNZ 


INUJH 




8558 


Skip 


add logic 




8559 






EADC A274 


8560 


LDX 


#>FPREG1 


EADE 2057E9 


8561 
8562 
8563 
8564 


JSR 


PUSHFP 


EAEl 4C4DD2 


8565 
8566 
8567 
8568 


JMP 


UPDBYl 


EAE4 A574 


8569 ] 


[NUJH LDA 


FPREGl 


EAE6 457A 


8570 


EOR 


FPREG2 


EAE8 D00F 


8571 


BNZ 


INUJI 
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EAEA A574 


8572 


LDA 


FPREGl 


EAEC 8580 


8573 


STA 


FPREG3 


EAEE 2013EA 


8574 


JSR 


FADD 


EAFl A280 


8575 


LDX 


#>FPREG3 


EAF3 2057E9 


8576 


JSR 


PUSHFP 


EAF6 4C4DD2 


8577 


JMP 


UPDBYl 


EAF9 2072EA 


8578 ] 


[NUJI JSR 


FCMP 


EAFC 8580 


8579 


STA 


FPREG3 


EAFE 2039EA 


8580 
8581 


JSR 


FSUB 




8582 


Push 


result 




8583 






EB01 A280 


8584 


LDX 


#>FPREG3 


EB03 2057E9 


8585 
8586 
8587 
8588 


JSR 


PUSHFP 


EB06 4C4DD2 


8589 


JMP 


UPDBYl 




8590 


.PAGE 'Floating poir 




8591 








8592 








8593 






EB09 A274 


8594 ; 


5BR LDX 


#>FPREG1 


EB0B 2029E9 


8595 


JSR 


PULLFP 


EB0E A27A 


8596 


LDX 


#>FPREG2 


EB10 2029E9 


8597 
8598 
8599 
8600 


JSR 


PULLFP 


EB13 A575 


8601 


LDA 


FPREGl+1 


EB15 D008 


8602 
8603 
8604 
8605 


BNZ 


INUJJ 


EB17 A27A 


8606 


LDX 


#>FPREG2 


EB19 2057E9 


8607 
8608 
8609 
8610 


JSR 


PUSHFP 


EBIC 4C4DD2 


8611 
8612 
8613 
8614 


JMP 


UPDBYl 


EBIF A57B 


8615 ] 


[NUJJ LDA 


FPREG2+1 


EB21 D00E 


8616 
8617 
8618 
8619 


BNZ 


INUJK 


EB23 A574 


8620 


LDA 


FPREGl 


EB25 4980 


8621 


EOR 


#$80 


EB27 8574 


8622 
8623 
8624 
8625 


STA 


FPREGl 


EB29 A274 


8626 


LDX 


#>FPREG1 


EB2B 2057E9 


8627 
8628 
8629 
8630 


JSR 


PUSHFP 
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EB2E 4C4DD2 



EB31 A574 
EB33 457A 
EBBS FOOF 



EB37 A57A 
EB39 8580 
EB3B 2013EA 



EB3E A280 
EB40 2057E9 



EB43 4C4DD2 



EB46 2072EA 
EB49 B002 
EB4B 4980 
EB4D 8580 



EB4F 2039EA 



EB52 A280 
EB54 2057E9 



EB57 4C4DD2 



EB5A A274 
EB5C 2029E9 



EB5F A27A 
EB61 2029E9 



EB64 A575 
EB66 D003 



8631 
8632 
8633 
8634 
8635 
8636 
8637 
8638 
8639 
8640 
8641 
8642 
8643 
8644 
8645 
8646 
8647 
8648 
8649 
8650 
8651 
8652 
8653 
8654 
8655 
8656 
8657 
8658 
8659 
8660 
8661 
8662 
8663 
8664 
8665 
8666 
8667 
8668 
8669 
8670 
8671 
8672 

8673 
8674 
8675 
8676 
8677 
8678 
8679 
8680 
8681 
8682 
8683 
8684 
8685 
8686 
8687 
8688 
8689 



JMP 



UPDBYl 



INUJK LDA FPREGl 
EOR FPREG2 
BZ INUJL 



LDA FPREG2 
STA FPREG3 
JSR FADD 



LDX 
JSR 



JMP 



INUJL JSR 
BC 
EOR 

INUJM STA 



JSR 



LDX 
JSR 



#>FPREG3 
PUSHFP 



UPDBYl 



FCMP 
INUJM 
#$80 
FPREG3 



FSUB 



#>FPREG3 
PUSHFP 



JMP UPDBYl 
.PAGE 'Floating point - Divide' 
Pull divisor off stack 



DVR LDX 
JSR 



#>FPREG1 
PULLFP 



Pull dividend off stack 



LDX 
JSR 



#>FPREG2 
PULLFP 



Branch if divisor is not zero 



LDA 
BNZ 



FPREGl+1 
INUJN 
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8690 










8691 








EB68 4CDFD1 


8692 
8693 


JMP 


ERR6 






8694 


Branch if dividend is not 


zero 




8695 








EB6B A57B 


8696 INUJN LDA 


FPREG2+1 




EB6D D009 


8697 
8698 


BNZ 


INUJO 






8699 


Push 


zero result on stack 






8700 








EB6F A900 


8701 


LDA 


#0 




EB71 48 


8702 


PHA 






EB72 48 


8703 


PHA 






EB73 48 


8704 


PHA 






EB74 48 


8705 
8706 
8707 
8708 


PHA 






EB75 4C4DD2 


8709 
8710 
8711 
8712 


JMP 


UPDBYl 




EB78 A574 


8713 INUJO LDA 


FPREGl 




EB7A 457A 


8714 


EOR 


FPREG2 




EB7C 8580 


8715 


STA 


FPREG3 




EB7E A57B 


8716 


LDA 


FPREG2+1 




EB80 38 


8717 


SEC 






EB81 E575 


8718 


SBC 


FPREGl+1 




EB83 900B 


8719 


BNC 


INUJP 




EB85 18 


8720 


CLC 






EB86 697F 


8721 


ADC 


#$7F 




EB88 B00C 


8722 


BC 


INUJQ 




EB8A C9FF 


8723 


CMP 


#$FF 




EB8C F008 


8724 


BE 


INUJQ 




EB8E 9009 


8725 


BL 


INUJT 




EB90 697F 


8726 INUJP ADC 


#$7F 




EB92 F002 


8727 


BZ 


INUJQ 




EB94 1003 


8728 


BNM 


INUJT 




EB96 4CF3D1 


8729 INUJQ JMP 


ERR12 




EB99 8581 


8730 INUJT STA 


FPREG3+1 






8731 










8732 










8733 








EB9B A220 


8734 


LDX 


#32 




EB9D 38 


8735 ] 


[NUJV SEC 






EB9E A57F 


8736 


LDA 


FPREG2+5 




EBA0 E579 


8737 


SBC 


FPREGl+5 




EBA2 8587 


8738 


STA 


A86+1 




EBA4 A57E 


8739 


LDA 


FPREG2+4 




EBA6 E578 


8740 


SBC 


FPREGl+4 




EBA8 8586 


8741 


STA 


A86 




EBAA A57D 


8742 


LDA 


FPREG2+3 




EBAC E577 


8743 


SBC 


FPREGl+3 




EBAE A8 


8744 


TAY 






EBAF A57C 


8745 


LDA 


FPREG2+2 




EBBl E576 


8746 


SBC 


FPREGl+2 




EBB3 900D 


8747 


BNC 


INUJW 




EBB5 857C 


8748 


STA 


FPREG2+2 




EBB7 847D 


8749 


STY 


FPREG2+3 
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EBB9 


A586 


8750 


LDA 


A86 


EBBB 


857E 


8751 


STA 


FPREG2+4 


EBBD 


A587 


8752 


LDA 


A86+1 


EBBF 


857F 


8753 


STA 


FPREG2+5 


EBCl 


38 


8754 


SEC 




EBC2 


2685 


8755 ] 


[NUJW ROL 


FPREG3+5 


EBC4 


2684 


8756 


ROL 


FPREG3+4 


EBC6 


2683 


8757 


ROL 


FPREG3+3 


EBC8 


2682 


8758 


ROL 


FPREG3+2 


EBCA 


4676 


8759 


LSR 


FPREGl+2 


EBCC 


6677 


8760 


ROR 


FPREGl+3 


EBCE 


6678 


8761 


ROR 


FPREGl+4 


EBD0 


6679 


8762 


ROR 


FPREGl+5 


EBD2 


CA 


8763 


DEX 




EBD3 


D0C8 


8764 
8765 
8766 
8767 


BNZ 


INUJV 


EBD5 


209AE9 


8768 


JSR 


INUHP 


EBD8 


20BAE9 


8769 


JSR 


INUHW 


EBDB 


207AE9 


8770 
8771 
8772 
8773 


JSR 


INUHG 


EBDE 


A280 


8774 


LDX 


#>FPREG3 


EBE0 


2057E9 


8775 
8776 
8777 
8778 


JSR 


PUSHFP 


EBE3 


4C4DD2 


8779 
8780 


JMP 


UPDBYl 


*S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|<> 


K * * * * SK * * * S|< !| 


< sK sK sK sK sK sK s|( sK sK s| 






8781 










8782 










8783 






EBE6 


A574 


8784 ] 


[NUJX LDA 


FPREGl 


EBE8 


457A 


8785 


EOR 


FPREG2 


EBEA 


8580 


8786 


STA 


FPREG3 


EBEC 


A575 


8787 


LDA 


FPREGl+1 


EBEE 


38 


8788 


SEC 




EBEF 


E97F 


8789 


SBC 


#$7F 


EBFl 


8575 


8790 


STA 


FPREGl+1 


EBF3 


A57B 


8791 


LDA 


FPREG2+1 


EBF5 


38 


8792 


SEC 




EBF6 


E97F 


8793 


SBC 


#$7F 


EBF8 


B8 


8794 


CLV 




EBF9 


18 


8795 


CLC 




EBFA 


6575 


8796 


ADC 


FPREGl+1 


EBFC 


5005 


8797 


BNV 


INUKB 


EBFE 


68 


8798 ] 


[NUJZ PLA 




EBFF 


68 


8799 


PLA 




EC00 


4CF3D1 


8800 


JMP 


ERR12 


EC03 


18 


8801 ] 


[NUKB CLC 




EC04 


697F 


8802 


ADC 


#$7F 


EC06 


F0F6 


8803 


BZ 


INUJZ 


EC08 


C9FF 


8804 


CMP 


#$FF 


EC0A 


F0F2 


8805 


BE 


INUJZ 


EC0C 


8581 


8806 


STA 


FPREG3+1 


EC0E 


A900 


8807 


LDA 


#0 


EC10 


8582 


8808 


STA 


FPREG3+2 
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EC12 8583 


8809 


STA 


FPREG3+3 


EC14 8584 


8810 


STA 


FPREG3+4 


EC16 8585 


8811 


STA 


FPREG3+5 


EC18 A218 


8812 


LDX 


#$18 


ECIA 4676 


8813 INUKC LSR 


FPREGl+2 


EClC 6677 


8814 


ROR 


FPREGl+3 


ECIE 6678 


8815 


ROR 


FPREGl+4 


EC20 9013 


8816 


BNC 


INUKE 


EC22 18 


8817 


CLC 




EC23 A584 


8818 


LDA 


FPREG3+4 


EC25 657E 


8819 


ADC 


FPREG2+4 


EC27 8584 


8820 


STA 


FPREG3+4 


EC29 A583 


8821 


LDA 


FPREG3+3 


EC2B 657D 


8822 


ADC 


FPREG2+3 


EC2D 8583 


8823 


STA 


FPREG3+3 


EC2F A582 


8824 


LDA 


FPREG3+2 


EC31 657C 


8825 


ADC 


FPREG2+2 


EC33 8582 


8826 


STA 


FPREG3+2 


EC35 CA 


8827 INUKE DEX 




EC36 F013 


8828 


BZ 


INUKF 


EC38 6682 


8829 


ROR 


FPREG3+2 


EC3A 6683 


8830 


ROR 


FPREG3+3 


EC3C 6684 


8831 


ROR 


FPREG3+4 


EC3E 6685 


8832 


ROR 


FPREG3+5 


EC40 90D8 


8833 


BNC 


INUKC 


EC42 A585 


8834 


LDA 


FPREG3+5 


EC44 0901 


8835 


ORA 


#$01 


EC46 8585 


8836 


STA 


FPREG3+5 


EC48 4C1AEC 


8837 


JMP 


INUKC 


EC4B 207AE9 


8838 INUKF JSR 


INUHG 


EC4E 20BAE9 


8839 


JSR 


INUHW 


EC51 207AE9 


8840 


JSR 


INUHG 


EC54 60 


8841 


RTS 






8842 


.PAGE 'Floating point - F 




8843 








8844 








8845 






EC55 A274 


8846 r 


1PR LDX 


#>FPREG1 


EC57 2029E9 


8847 


JSR 


PULLFP 


EC5A A27A 


8848 


LDX 


#>FPREG2 


EC5C 2029E9 


8849 
8850 
8851 
8852 


JSR 


PULLFP 


EC5F A575 


8853 


LDA 


FPREGl+1 


EC61 F006 


8854 


BZ 


INUKG 


EC63 A57B 


8855 


LDA 


FPREG2+1 


EC65 F002 


8856 
8857 


BZ 


INUKG 




8858 


Unconditional branch 




8859 






EC67 D009 


8860 
8861 
8862 
8863 


BNZ 


INUKI 


EC69 A900 


8864 ] 


[NUKG LDA 


#0 


EC6B 48 


8865 


PHA 




EC6C 48 


8866 


PHA 




EC6D 48 


8867 


PHA 
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EC6E 48 



EC6F 4C4DD2 



EC72 20E6EB 



EC75 A280 
EC77 2057E9 



EC7A 4C4DD2 



EC7D A274 
EC7F 2029E9 



EC82 A575 
EC84 D0O9 



EC86 A900 
EC88 48 
EC89 48 
EC8A 48 
EC8B 48 



EC8C 4C4DD2 



EC8F 
EC91 
EC93 
EC95 
EC97 
EC99 
EC9B 
EC9D 
EC9F 
ECAl 
ECA3 
ECA5 



A574 
857A 
A575 
857B 
A576 
857C 
A577 
857D 
A578 
857E 
A579 
857F 



8868 
8869 
8870 
8871 
8872 
8873 
8874 
8875 
8876 
8877 
8878 
8879 
8880 
8881 
8882 
8883 
8884 
8885 

8886 
8887 
8888 
8889 
8890 
8891 
8892 
8893 
8894 
8895 
8896 
8897 
8898 
8899 
8900 
8901 
8902 
8903 
8904 
8905 
8906 
8907 
8908 
8909 
8910 
8911 
8912 
8913 
8914 
8915 
8916 
8917 
8918 
8919 
8920 
8921 
8922 
8923 
8924 
8925 
8926 



PHA 



JMP 



INUKI JSR 



LDX 
JSR 



UPDBYl 



INUJX 



#>FPREG3 
PUSHFP 



JMP UPDBYl 

.PAGE 'Floating point - Square' 

Pull value to be squared off stack 

SQR LDX #>FPREG1 
JSR PULLFP 



LDA 


FPREGl+1 


BNZ 


INUKJ 


LDA 


#0 


PHA 




PHA 




PHA 




PHA 





JMP 



INUKJ LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 



UPDBYl 



FPREGl 

FPREG2 

FPREGl+1 

FPREG2+1 

FPREGl+2 

FPREG2+2 

FPREGl+3 

FPREG2+3 

FPREGl+4 

FPREG2+4 

FPREGl+5 

FPREG2+5 
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ECA7 20E6EB 


8927 
8928 
8929 
8930 




JSR 


INUJX 


ECAA A280 


8931 




LDX 


#>FPREG3 


ECAC 2057E9 


8932 
8933 
8934 
8935 




JSR 


PUSHFP 


ECAF 4C4DD2 


8936 
8937 




JMP 


UPDBYl 


*S(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(C!|CS|C 




8938 










8939 




Abso 


Lute value 




8940 








ECB2 BA 


8941 


ABR 


TSX 




ECB3 E8 


8942 




INX 




ECB4 E8 


8943 




INX 




ECB5 E8 


8944 




INX 




ECB6 E8 


8945 




INX 




ECB7 1E0001 


8946 




ASL 


PIBASE.X 


ECBA 5E0001 


8947 
8948 
8949 
8950 




LSR 


PIBASE.X 


ECBD 4C4DD2 


8951 
8952 




JMP 


UPDBYl 


*S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|(S|<S|<S|(S|(S|<S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(* 




8953 










8954 




Negate real 




8955 








ECC0 BA 


8956 


NGR 


TSX 




ECCl BD0301 


8957 




LDA 


P1BASE+3,X 


ECC4 8574 


8958 




STA 


FPREGl 


ECC6 BD0401 


8959 




LDA 


P1BASE+4,X 


ECC9 8576 


8960 




STA 


FPREGl+2 


ECCB 2674 


8961 




ROL 


FPREGl 


ECCD 2676 


8962 




ROL 


FPREGl+2 


ECCF F00C 


8963 




BZ 


INUKK 


ECDl E8 


8964 




INX 




ECD2 E8 


8965 




INX 




ECD3 E8 


8966 




INX 




ECD4 E8 


8967 




INX 




ECD5 BD0001 


8968 




LDA 


PIBASE.X 


ECD8 4980 


8969 




EOR 


#$80 


ECDA 9D0001 


8970 
8971 
8972 
8973 




STA 


PIBASE.X 


ECDD 4C4DD2 


8974 


INUKK JMP 


UPDBYl 




8975 


; .PAGE 






8976 










8977 




Save 


(return address - 1) 




8978 








ECE0 68 


8979 


FLOAT PLA 




ECEl 8588 


8980 




STA 


FPRETA 


ECE3 68 


8981 




PLA 




ECE4 8589 


8982 
8983 


t 


STA 


FPRETA+1 
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8984 








8985 






ECE6 68 


8986 


PLA 




ECE7 8586 


8987 


STA 


A86 


ECE9 68 


8988 


PLA 




ECEA 8587 


8989 
8990 
8991 
8992 


STA 


A86+1 


ECEC A587 


8993 


LDA 


A86+1 


ECEE D012 


8994 


BNZ 


INUKN 


ECF0 A586 


8995 


LDA 


A86 


ECF2 D00E 


8996 


BNZ 


INUKN 




8997 


ifdef GRIG 






8998 


ifndef lie 




8999 








9000 








9001 






ECF4 A900 


9002 


LDA 


#0 




9003 


endif 






9004 


endif 




ECF6 8580 


9005 


STA 


FPREG3 


ECF8 8581 


9006 


STA 


FPREG3+1 


ECFA 8582 


9007 


STA 


FPREG3+2 


ECFC 8583 


9008 


STA 


FPREG3+3 


ECFE 8584 


9009 
9010 


STA 


FPREG3+4 




9011 


Unconditional b 




9012 






ED00 F034 


9013 
9014 
9015 
9016 


BZ 


INUKR 


ED02 A900 


9017 ] 


[NUKN LDA 


#0 


ED04 8580 


9018 


STA 


FPREG3 




9019 


ifndef GRIG 




9020 








9021 








9022 








9023 


LDX 


#$8E 




9024 


LDA 


A86+1 




9025 


BNM 


INUKQ 




9026 








9027 








9028 








9029 


LDA 


#$80 




9030 


STA 


FPREG3 




9031 


else 






9032 








9033 








9034 








9035 


ifdef lie 






9036 


LDX 


#$8E 




9037 


endif 




ED06 A587 


9038 


LDA 


A86+1 




9039 


ifdef lie 






9040 


BNM 


INUKQ 




9041 


else 




ED08 1015 


9042 


BNM 


INUKP 




9043 


endif 
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9044 


ifdef lie 






9045 








9046 








9047 








9048 


LDA 


#$80 




9049 


STA 


FPREG3 




9050 


endif 






9051 


endif 






9052 








9053 








9054 






ED0A 18 


9055 


CLC 




ED0B A586 


9056 


LDA 


A86 


ED0D 49FF 


9057 


EOR 


#$FF 


ED0F 6901 


9058 


ADC 


#1 


EDll 8586 


9059 


STA 


A86 


ED13 A587 


9060 


LDA 


A86+1 


ED15 49FF 


9061 


EOR 


#$FF 


ED17 6900 


9062 


ADC 


#0 


ED19 8587 


9063 


STA 


A86+1 




9064 


ifndef GRIG 




9065 


BM 


INUKP 




9066 


else 






9067 


ifndef lie 


EDIB A980 


9068 


LDA 


#$80 


EDID 8580 


9069 


STA 


FPREG3 


EDIF A28E 


9070 INUKP LDX 


#$8E 




9071 


else 






9072 


BM 


INUKP 




9073 


endif 






9074 


endif 




ED21 CA 


9075 INUKQ DEX 




ED22 0686 


9076 


ASL 


A86 


ED24 2687 


9077 


ROL 


A86+1 


ED26 10F9 


9078 


BNM 


INUKQ 




9079 


ifndef GRIG 




9080 INUKP 






9081 


else 






9082 


ifdef lie 






9083 INUKP 






9084 


endif 






9085 


endif 




ED28 8681 


9086 


STX 


FPREG3+1 


ED2A A587 


9087 


LDA 


A86+1 


ED2C 8582 


9088 


STA 


FPREG3+2 


ED2E A586 


9089 


LDA 


A86 


ED30 8583 


9090 


STA 


FPREG3+3 


ED32 A900 


9091 


LDA 


#0 


ED34 8584 


9092 
9093 


STA 


FPREG3+4 




9094 


Return 


to caller 




9095 






ED36 E688 


9096 ] 


[NUKR INC 


FPRETA 


ED38 D002 


9097 


BNZ 


INUKS 


ED3A E689 


9098 


INC 


FPRETA+1 


ED3C 6C8800 


9099 ] 


[NUKS JMP 


(FPRETA) 




9100 


.PAGE 'Integer to real conversion 




9101 








9102 


Save TGS 
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9103 






ED3F 68 


9104 I 


=L0 PLA 




ED40 8579 


9105 


STA 


FPREGl+5 


ED42 68 


9106 


PLA 




ED43 8578 


9107 


STA 


FPREGl+4 


ED45 68 


9108 


PLA 




ED46 8577 


9109 


STA 


FPREGl+3 


ED48 68 


9110 


PLA 




ED49 8576 


9111 
9112 
9113 
9114 


STA 


FPREGl+2 


ED4B 20E0EC 


9115 


JSR 


FLOAT 


ED4E A280 


9116 


LDX 


#>FPREG3 


ED50 2057E9 


9117 
9118 
9119 
9120 


JSR 


PUSHFP 


ED53 A576 


9121 


LDA 


FPREGl+2 


ED55 48 


9122 


PHA 




ED56 A577 


9123 


LDA 


FPREGl+3 


ED58 48 


9124 


PHA 




ED59 A578 


9125 


LDA 


FPREGl+4 


ED5B 48 


9126 


PHA 




ED5C A579 


9127 


LDA 


FPREGl+5 


ED5E 48 


9128 
9129 
9130 
9131 


PHA 




ED5F 4C4DD2 


9132 
9133 


JMP 


UPDBYl 




9134 


Float 


TOS 




9135 






ED62 20E0EC 


9136 I 


=LT JSR 


FLOAT 


ED65 A280 


9137 


LDX 


#>FPREG3 


ED67 2057E9 


9138 


JSR 


PUSHFP 


ED6A 4C4DD2 


9139 


JMP 


UPDBYl 




9140 


.PAGE 'Real to intec 




9141 








9142 








9143 






ED6D 38 


9144 I 


=IX SEC 




ED6E A98D 


9145 


LDA 


#$8D 


ED70 E575 


9146 


SBC 


FPREGl+1 


ED72 B005 


9147 
9148 
9149 
9150 


BC 


INUKW 


ED74 68 


9151 ] 


[NUKV PLA 




ED75 68 


9152 
9153 
9154 
9155 


PLA 




ED76 4CF3D1 


9156 
9157 
9158 
9159 


JMP 


ERR12 


ED79 AA 


9160 ] 


[NUKW TAX 




ED7A E018 


9161 


CPX 


#$18 
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ED7C 3009 


9162 
9163 
9164 
9165 


BM 


INUKX 


ED7E A900 


9166 


LDA 


#0 


ED80 8576 


9167 


STA 


FPREGl+2 


ED82 8577 


9168 


STA 


FPREGl+3 


ED84 8578 


9169 
9170 
9171 
9172 


STA 


FPREGl+4 


ED86 60 


9173 
9174 
9175 
9176 


RTS 




ED87 4676 


9177 INUKX LSR 


FPREGl+2 


ED89 6677 


9178 


ROR 


FPREGl+3 


ED8B 6678 


9179 
9180 
9181 
9182 


ROR 


FPREGl+4 


ED8D CA 


9183 


DEX 




ED8E 10F7 


9184 
9185 


BNM 


INUKX 




9186 


Branc 


h if truncating 




9187 






ED90 A586 


9188 


LDA 


A86 


ED92 F00F 


9189 
9190 
9191 
9192 


BZ 


INUKZ 


ED94 A578 


9193 


LDA 


FPREGl+4 


ED96 100B 


9194 


BNM 


INUKZ 


ED98 E677 


9195 


INC 


FPREGl+3 


ED9A D007 


9196 


BNZ 


INUKZ 


ED9C E676 


9197 


INC 


FPREGl+2 


ED9E 1003 


9198 
9199 
9200 
9201 


BNM 


INUKZ 


EDA0 4C74ED 


9202 
9203 
9204 
9205 


JMP 


INUKV 


EDA3 A574 


9206 ] 


[NUKZ LDA 


FPREGl 


EDA5 1013 


9207 
9208 
9209 
9210 


BNM 


INULD 


EDA7 A576 


9211 


LDA 


FPREGl+2 


EDA9 49FF 


9212 


EOR 


#$FF 


EDAB 8576 


9213 


STA 


FPREGl+2 


EDAD A577 


9214 


LDA 


FPREGl+3 


EDAF 49FF 


9215 


EOR 


#$FF 


EDBl 18 


9216 


CLC 




EDB2 6901 


9217 


ADC 


#1 


EDB4 8577 


9218 


STA 


FPREGl+3 


EDB6 9002 


9219 


BNC 


INULD 


EDB8 E676 


9220 
9221 


INC 


FPREGl+2 
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9222 


/ 










9223 


/ 






EDBA 


60 


9224 


INULD RTS 








9225 


;.PAGE 'Real to integer conversion' 






9226 












9227 




Rounc 








9228 








EDBB 


A901 


9229 


RND 


LDA 


#1 


EDBD 


8586 


9230 
9231 




STA 


A86 






9232 




Pull 


real value off stack 






9233 








EDBF 


A274 


9234 




LDX 


#>FPREG1 


EDCl 


2029E9 


9235 
9236 
9237 
9238 


t 
t 


JSR 


PULLFP 


EDC4 


206DED 


9239 
9240 


t 


JSR 


FIX 






9241 


t 


Push 


result on stack 






9242 


t 






EDC7 


A576 


9243 




LDA 


FPREGl+2 


EDC9 


48 


9244 




PHA 




EDCA 


A577 


9245 




LDA 


FPREGl+3 


EDCC 


48 


9246 
9247 
9248 
9249 




PHA 




EDCD 


4C3BD2 


9250 
9251 




JMP 


UPDBY2 


*S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|<S|(!|<S|<!|<!|(!|(!|<S|<S|(S|(S|(S|(S|(S|(S|(S|(S|(!|(S|<S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|<* 






9252 












9253 




Truncate 






9254 








EDD0 


A900 


9255 


TNC 


LDA 


#0 


EDD2 


8586 


9256 
9257 




STA 


A86 






9258 




Pull 


real value off stack 






9259 








EDD4 


A274 


9260 




LDX 


#>FPREG1 


EDD6 


2029E9 


9261 
9262 
9263 
9264 




JSR 


PULLFP 


EDD9 


206DED 


9265 
9266 


t 


JSR 


FIX 






9267 


t 


Push 


result on stack 






9268 


t 






EDDC 


A576 


9269 




LDA 


FPREGl+2 


EDDE 


48 


9270 




PHA 




EDDF 


A577 


9271 




LDA 


FPREGl+3 


EDEl 


48 


9272 
9273 
9274 
9275 




PHA 




EDE2 


4C3BD2 


9276 




JMP 


UPDBY2 






9277 


; .PAGE 'Power of ten' 






9278 


t 
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9279 


Pull 


integer exponent from s1 




9280 






EDE5 68 


9281 F 


^WR10 PLA 




EDE6 AA 


9282 


TAX 




EDE7 68 


9283 
9284 


PLA 






9285 


Branch if exponent > 38 




9286 






EDE8 D01B 


9287 


BNZ 


INULF 


EDEA E027 


9288 


CPX 


#39 


EDEC 1017 


9289 
9290 


BNI^ 


INULF 




9291 


Multiply exponent by 4 




9292 






EDEE 8A 


9293 


TXA 




EDEF 0A 


9294 


ASL 


A 


EDF0 0A 


9295 


ASL 


A 


EDFl AA 


9296 
9297 


TAX 






9298 


Push 


result value from table 




9299 






EDF2 BD0FEE 


9300 


LDA 


P10TBL+1,X 


EDF5 48 


9301 


PHA 




EDF6 BD0EEE 


9302 


LDA 


P10TBL,X 


EDF9 48 


9303 


PHA 




EDFA BDllEE 


9304 


LDA 


P10TBL+3,X 


EDFD 48 


9305 


PHA 




EDFE BD10EE 


9306 


LDA 


P10TBL+2,X 


EE01 48 


9307 
9308 
9309 
9310 


PHA 




EE02 4C3BD2 


9311 
9312 


JMP 


UPDBY2 




9313 


Push 


zero 




9314 






EE05 A900 


9315 ] 


[NULF LDA 


#0 


EE07 48 


9316 


PHA 




EE08 48 


9317 


PHA 




EE09 48 


9318 


PHA 




EE0A 48 


9319 
9320 
9321 
9322 


PHA 




EE0B 4CF3D1 


9323 
9324 
9325 
9326 


JI^P 


ERR12 


EE0E 803F0000 


9327 F 


^10TBL 


DB $80,$3F,$00,$00 


EE12 20410000 


9328 


DB 


$20, $41, $00, $00 


EE16 C8420000 


9329 


DB 


$C8,$42,$00,$00 


EEIA 7A440000 


9330 


DB 


$7A,$44,$00,$00 


EEIE 1C460040 


9331 


DB 


$1C,$46,$00,$40 


EE22 C3470050 


9332 


DB 


$C3,$47,$00,$50 


EE26 74490024 


9333 


DB 


$74, $49, $00, $24 


EE2A 184B8096 


9334 


DB 


$18,$4B,$80,$96 


EE2E BE4C20BC 


9335 


DB 


$BE,$4C,$20,$BC 


EE32 6E4E286B 


9336 


DB 


$6E,$4E,$28,$6B 


EE36 1550F902 


9337 


DB 


$15,$50,$F9,$02 


EE3A BA51B743 


9338 


DB 


$BA,$51,$B7,$43 
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EE3E 6853A5D4 


9339 


DB 


$68,$53,$A5,$D4 


EE42 1155E784 


9340 


DB 


$11,$55,$E7,$84 


EE46 B55621E6 


9341 


DB 


$B5,$56,$21,$E6 


EE4A 6358A95F 


9342 


DB 


$63,$58,$A9,$5F 


EE4E 0E5ACA1B 


9343 


DB 


$0E,$5A,$CA,$1B 


EE52 B15BBCA2 


9344 


DB 


$B1,$5B,$BC,$A2 


EE56 5E5D6B0B 


9345 


DB 


$5E,$5D,$6B,$0B 


EE5A 0A5F23C7 


9346 


DB 


$0A,$5F,$23,$C7 


EE5E AD60EC78 


9347 


DB 


$AD,$60,$EC,$78 


EE62 586227D7 


9348 


DB 


$58,$62,$27,$D7 


EE66 07647886 


9349 


DB 


$07, $64, $78, $86 


EE6A A9651668 


9350 


DB 


$A9,$65,$16,$68 


EE6E 53671CC2 


9351 


DB 


$53,$67,$1C,$C2 


EE72 04695159 


9352 


DB 


$04, $69, $51, $59 


EE76 A56AA66F 


9353 


DB 


$A5,$6A,$A6,$6F 


EE7A 4E6C8FCB 


9354 


DB 


$4E,$6C,$8F,$CB 


EE7E 016E393F 


9355 


DB 


$01,$6E,$39,$3F 


EE82 A16F088F 


9356 


DB 


$A1,$6F,$08,$8F 


EE86 4971CAF2 


9357 


DB 


$49,$71,$CA,$F2 


EE8A FC727C6F 


9358 


DB 


$FC,$72,$7C,$6F 


EE8E 9D74AEC5 


9359 


DB 


$9D,$74,$AE,$C5 


EE92 45761937 


9360 


DB 


$45, $76, $19, $37 


EE96 F677DF84 


9361 


DB 


$F6,$77,$DF,$84 


EE9A 9A790C13 


9362 


DB 


$9A,$79,$0C,$13 


EE9E 407BCE97 


9363 


DB 


$40,$7B,$CE,$97 


EEA2 F07CC2BD 


9364 


DB 


$F0,$7C,$C2,$BD 


EEA6 967E9C76 


9365 


DB 


$96,$7E,$9C,$76 




9366 


.PAGE 'More support for CSF 




9367 








9368 








9369 






EEAA E3D1 


9370 ] 


[NULL DW 


ERR8 


EEAC 00 


9371 ] 
9372 
9373 
9374 


[NULO DB 


$00 


EEAD 03FF 


9375 ] 


[NULP DW 


JCWRT 


EEAF 03FF 


9376 


DW 


JCWRT 


EEBl 21FF 


9377 


DW 


JGRAFW 


EEB3 0000 


9378 


DW 





EEB5 0000 


9379 


DW 





EEB7 09FF 


9380 


DW 


JPRTW 


EEB9 0000 


9381 


DW 





EEBB IBFF 


9382 
9383 
9384 
9385 


DW 


JREMW 


EEBD 00FF 


9386 ] 


[NULS DW 


J C READ 


EEBF 00FF 


9387 


DW 


JCREAD 


EECl 0000 


9388 


DW 





EEC3 0000 


9389 


DW 





EEC5 0000 


9390 


DW 





EEC7 0000 


9391 


DW 





EEC9 18FF 


9392 


DW 


JREMR 


EECB 0000 


9393 


DW 







9394 


.PAGE 






9395 








9396 


Val 


Ldate volume number 
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EECD 
EECF 
EEDl 
EED2 
EED4 
EED6 
EED8 



2980 

D00A 

8A 

C90D 

B019 

C901 

9015 



EEDA 60 



EEDB 
EEDC 
EEDE 
EEE0 
EEE2 
EEE4 
EEE5 
EEE7 
EEE8 
EEEB 
EEED 



8A 

297F 

858C 

C910 

B00B 

0A 

658C 

A8 

B982FE 

F002 

8A 



EEEE 60 



EEEF A202 
EEFl 8EDEBD 



EEF4 68 
EEF5 68 



EEF6 4C3BD2 



9397 
9398 
9399 
9400 
9401 
9402 
9403 
9404 
9405 
9406 
9407 
9408 
9409 
9410 
9411 
9412 
9413 
9414 
9415 
9416 
9417 
9418 
9419 
9420 
9421 
9422 
9423 
9424 
9425 
9426 
9427 
9428 
9429 
9430 
9431 
9432 
9433 
9434 
9435 
9436 
9437 
9438 
9439 
9440 
9441 



VALVNO 



BNZ 
TXA 
CMP 
BGE 
CMP 
BL 



RTS 



INULZ TXA 
AND 
STA 
CMP 
BGE 
ASL 
ADC 
TAY 
LDA 
BZ 
TXA 



RTS 



INUMA LDX 
STX 



PLA 
PLA 



JMP 



AND #$80 
INULZ 

#MAXVOL 
INUMA 
#1 
INUMA 



#$7F 

A8C 

#$10 

INUMA 

A 

A8C 

UDJMPV+2,Y 
INUMA 



#2 
lORSLT 



UPDBY2 






EEF9 ADDFBD 
EEFC 48 
EEFD ADDEBD 
EF00 48 



EF01 4C3BD2 



9442 
9443 
9444 
9445 
9446 
9447 
9448 
9449 
9450 
9451 
9452 
9453 
9454 



Push IGRESULT onto stack 



PSHIOR 



LDA IORSLT+1 

PHA 

LDA lORSLT 

PHA 



JMP UPDBY2 
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9455 

9456 

9457 

EF04 ADDEBD 9458 CSP0 LDA lORSLT 
EF07 F003 9459 BZ INUME 

9460 ; 

9461 ; 

9462 ; 

EF09 4CEBD1 9463 JMP ERR10 

9464 ; 

9465 ; 

9466 ; 

EF0C 4C3BD2 9467 INUME JMP UPDBY2 
9468 

9469 

9470 

9471 
EF0F 68 9472 CSP35 PLA 
EF10 AA 9473 TAX 
EFll 68 9474 PLA 
EF12 8A 9475 TXA 

9476 ; 

9477 ; 

9478 ; 
EF13 20CDEE 9479 JSR VALVNO 

9480 ; 

9481 ; 

9482 ; 
EF16 A900 9483 LDA #0 
EF18 48 9484 PHA 
EF19 48 9485 PHA 

9486 
9487 
9488 
EFIA 4C3BD2 9489 
9490 

9491 

9492 

9493 

EFID 68 9494 CSP37 PLA 
EFIE AA 9495 TAX 
EFIF 68 9496 PLA 
EF20 8A 9497 TXA 

9498 ; 

9499 ; 

9500 ; 

EF21 20CDEE 9501 JSR VALVNO 

9502 ; 

9503 ; 

9504 ; 

EF24 4C3BD2 9505 JMP UPDBY2 
9506 

9507 

9508 

9509 
EF27 A904 9510 CSP12 LDA #$04 
EF29 857C 9511 STA A7C 



JMP UPDBY2 
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9512 










9513 










9514 








EF2B 68 


9515 


PLA 






EF2C 8582 


9516 


STA 


A82 




EF2E 68 


9517 


PLA 






EF2F 8583 


9518 
9519 
9520 
9521 


STA 


A82+1 




EF31 68 


9522 


PLA 






EF32 857A 


9523 


STA 


A7A 




EF34 68 


9524 


PLA 






EF35 857B 


9525 
9526 
9527 
9528 


STA 


A7A+1 




EF37 18 


9529 


CLC 






EF38 68 


9530 


PLA 






EF39 657A 


9531 


ADC 


A7A 




EF3B 857A 


9532 


STA 


A7A 




EF3D 68 


9533 


PLA 






EF3E 657B 


9534 


ADC 


A7A+1 




EF40 857B 


9535 
9536 
9537 
9538 


STA 


A7A+1 




EF42 68 


9539 


PLA 






EF43 AA 


9540 


TAX 






EF44 68 


9541 


PLA 






EF45 8A 


9542 


TXA 






EF46 20CDEE 


9543 
9544 
9545 
9546 


JSR 


VALVNO 




EF49 A583 


9547 


LDA 


A82+1 




EF4B 48 


9548 


PHA 






EF4C A582 


9549 


LDA 


A82 




EF4E 48 


9550 
9551 
9552 
9553 


PHA 






EF4F A57B 


9554 


LDA 


A7A+1 




EF51 48 


9555 


PHA 






EF52 A57A 


9556 


LDA 


A7A 




EF54 48 


9557 
9558 
9559 
9560 


PHA 






EF55 8A 


9561 


TXA 






EF56 2980 


9562 


AND 


#$80 




EF58 F002 


9563 
9564 


BZ 


INUMF 






9565 


Unconditional 


branch 




9566 








EF5A D058 


9567 
9568 
9569 
9570 


BNZ 


INUMM 




EF5C 8A 


9571 ] 


[NUMF TXA 
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9572 


ifde 


f GRIG 




EF5D C907 


9573 




CMP 


#$07 


EF5F D003 


9574 




BNE 


INUMG 


EF61 A908 


9575 




LDA 


#$08 


EF63 AA 


9576 
9577 


INUMG 


TAX 






9578 


endi 


f 




EF64 0A 


9579 




ASL 


A 


EF65 AS 


9580 




TAY 




EF66 B9AFFE 


9581 




LDA 


DSKNUM-1,Y 


EF69 F006 


9582 




BZ 


INUMH 


EF6B C9FF 


9583 




CMP 


#$FF 


EF6D F00B 


9584 




BE 


INUMI 


EF6F D05F 


9585 
9586 
9587 
9588 




BNE 


INUMP 


EF71 B9AEFE 


9589 


INUMH 


LDA 


DSKNUM-2,Y 


EF74 2030FF 


9590 




JSR 


JDSKS 


EF77 4C30F0 


9591 
9592 
9593 
9594 




JMP 


STGIGR 


EF7A 8A 


9595 


INUMI TXA 




EF7B AS 


9596 




TAY 




EF7C A204 


9597 




LDX 


#4 


EF7E C003 


9598 




CPY 


#3 


EF80 B006 


9599 




BGE 


INUMJ 


EF82 202AFF 


9600 




JSR 


JCGNS 


EF85 4C30F0 


9601 
9602 
9603 
9604 




JMP 


STGIGR 


EF88 C006 


9605 


INUMJ 


CPY 


#6 


EF8A D006 


9606 




BNE 


INUMK 


EF8C 202DFF 


9607 




JSR 


JPRTS 


EF8F 4C30F0 


9608 
9609 
9610 
9611 
9612 


INUMK 


JMP 


STGIGR 




9613 


ifnd 


ef GRIG 




9614 




CPY 


#7 




9615 




BE 


JSRLST 




9616 


endi 


f 




EF92 C008 


9617 




CPY 


#8 


EF94 D006 


9618 




BNE 


INUML 




9619 


ifnd 


ef GRIG 




9620 


JSRLST 






9621 


endi 


f 




EF96 2033FF 


9622 




JSR 


JREMS 


EF99 4C30F0 


9623 
9624 
9625 
9626 




JMP 


STGIGR 


EF9C A209 


9627 


INUML LDX 


#9 




9628 










9629 










9630 








EF9E 68 


9631 




PLA 
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EF9F 68 


9632 


PLA 






EFAO 68 


9633 


PLA 






EFAl 68 


9634 
9635 
9636 
9637 


PLA 






EFA2 4C30F0 


9638 


JMP 


STOIOR 






9639 


.PAGE 'System procedure 


38' 




9640 










9641 










9642 








EFA5 A902 


9643 CSP38 LDA 


#$02 




EFA7 857C 


9644 
9645 
9646 
9647 


STA 


A7C 




EFA9 68 


9648 


PLA 






EFAA AA 


9649 


TAX 






EFAB 68 


9650 


PLA 






EFAC 8A 


9651 


TXA 






EFAD 20CDEE 


9652 
9653 
9654 
9655 


JSR 


VALVNO 




EFB0 2980 


9656 


AND 


#$80 




EFB2 F009 


9657 
9658 
9659 
9660 


BZ 


INUMN 




EFB4 8A 


9661 ] 


[NUMM TXA 






EFB5 A67C 


9662 


LDX 


A7C 




EFB7 2039FF 


9663 


JSR 


JUSER 




EFBA 4C30F0 


9664 
9665 
9666 
9667 


JMP 


STOIOR 




EFBD 8A 


9668 ] 


[NUMN TXA 






EFBE C907 


9669 


CMP 


#7 




EFC0 D003 


9670 
9671 
9672 
9673 


BNE 


INUMO 




EFC2 A908 


9674 


LDA 


#8 




EFC4 AA 


9675 
9676 
9677 
9678 


TAX 






EFC5 0A 


9679 ] 


[NUMO ASL 


A 




EFC6 A8 


9680 


TAY 






EFC7 B9AFFE 


9681 


LDA 


DSKNUM-1,Y 




EFCA F00D 


9682 


BZ 


INUMO 




EFCC C9FF 


9683 


CMP 


#$FF 




EFCE F012 


9684 


BE 


INUMR 




EFD0 8A 


9685 ] 


[NUMP TXA 






EFDl A67C 


9686 


LDX 


A7C 




EFD3 203CFF 


9687 


JSR 


JUDDRV 




EFD6 4C30F0 


9688 
9689 
9690 


JMP 


STOIOR 
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9691 






EFD9 B9AEFE 


9692 INUMQ LDA 


DSKNUM-2,Y 


EFDC 2015FF 


9693 


JSR 


JDINIT 


EFDF 4C30F0 


9694 
9695 
9696 
9697 


JMP 


STOIOR 


EFE2 8A 


9698 INUMR TXA 




EFE3 AS 


9699 


TAY 




EFE4 A202 


9700 


LDX 


#2 


EFE6 C003 


9701 


CPY 


#3 


EFE8 B01C 


9702 
9703 
9704 
9705 


BGE 


INUMS 


EFEA A900 


9706 


LDA 


#0 


EFEC 8597 


9707 


STA 


A97 


EFEE 8598 


9708 
9709 
9710 
9711 


STA 


A98 


EFF0 ADABEE 


9712 


LDA 


INULL+1 


EFF3 48 


9713 


PHA 




EFF4 ADAAEE 


9714 


LDA 


INULL 


EFF7 48 


9715 
9716 
9717 
9718 


PHA 




EFF8 AD18F2 


9719 


LDA 


ADRIOR+1 


EFFB 48 


9720 


PHA 




EFFC AD17F2 


9721 


LDA 


ADRIOR 


EFFF 48 


9722 
9723 
9724 
9725 


PHA 




F000 2006FF 


9726 
9727 
9728 
9729 


JSR 


JCINIT 


F003 4C30F0 


9730 
9731 
9732 
9733 


JMP 


STOIOR 


F006 C006 


9734 ] 


[NUMS CPY 


#6 


F008 D00A 


9735 
9736 
9737 
9738 


BNE 


INUMT 


F00A A900 


9739 


LDA 


#0 


F00C 859C 


9740 
9741 
9742 
9743 


STA 


A9C 


F00E 200CFF 


9744 


JSR 


JPRTI 


F011 4C30F0 


9745 
9746 
9747 
9748 


JMP 


STOIOR 


F014 C008 


9749 ] 


[NUMT CPY 


#8 


F016 D006 


9750 


BNE 


INUMU 
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9751 








9752 








9753 








9754 


ifndef GRIG 




9755 


LDA 


#0 




9756 


STA 


ZA7 




9757 


STA 


ZA7+1 




9758 


endif 




F018 201EFF 


9759 


JSR 


JREMI 


F01B 4C30F0 


9760 
9761 
9762 
9763 


JMP 


STOIOR 


F01E C003 


9764 ] 


[NUMU CPY 


#3 


F020 D003 


9765 


BNE 


I NUMV 


F022 2024FF 


9766 


JSR 


JGRAFI 


F025 A209 


9767 ] 


[NUMV LDX 


#9 


F027 4C30F0 


9768 
9769 
9770 
9771 


JMP 


STOIOR 


F02A ADACEE 


9772 I 


JNTOKX 


LDA INULO 


F02D 8D1CBF 


9773 
9774 
9775 
9776 


STA 


SPCHAR 


F030 8EDEBD 


9777 ; 
9778 
9779 
9780 


5T0I0R 


STX lORSL 


F033 4C3BD2 


9781 


JMP 


UPDBY2 




9782 


.PAGE '??? 


1 




9783 








9784 








9785 






F036 68 


9786 ] 


[NUNN PLA 




F037 858E 


9787 


STA 


A8E 


F039 68 


9788 


PLA 




F03A 858F 


9789 
9790 
9791 
9792 


STA 


A8E+1 


F03C A583 


9793 


LDA 


A82+1 


F03E 48 


9794 


PHA 




F03F A582 


9795 


LDA 


A82 


F041 48 


9796 
9797 
9798 
9799 


PHA 




F042 A900 


9800 


LDA 


#$00 


F044 48 


9801 


PHA 




F045 8A 


9802 


TXA 




F046 48 


9803 
9804 
9805 
9806 


PHA 




F047 A57B 


9807 


LDA 


A7A+1 


F049 48 


9808 


PHA 




F04A A57A 


9809 


LDA 


A7A 
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F04C 


48 


9810 
9811 
9812 
9813 


PHA 




F04D 


A579 


9814 


LDA 


A78+1 


F04F 


48 


9815 


PHA 




F050 


A578 


9816 


LDA 


A78 


F052 


48 


9817 
9818 
9819 
9820 


PHA 




F053 


A577 


9821 


LDA 


A76+1 


F055 


48 


9822 


PHA 




F056 


A576 


9823 


LDA 


A76 


F058 


48 


9824 
9825 
9826 
9827 


PHA 




F059 


A58F 


9828 


LDA 


A8E+1 


F05B 


48 


9829 


PHA 




F05C 


A58E 


9830 


LDA 


A8E 


F05E 


48 


9831 
9832 
9833 
9834 


PHA 




F05F 


60 


9835 

9836 
9837 
9838 
9839 


RTS 
.PAGE '??? 


■ 


F060 


ADACEE 


9840 ] 


[NUNQ LDA 


INULO 


F063 


8D1CBF 


9841 
9842 
9843 
9844 


STA 


SPCHAR 


F066 


4C3BD2 


9845 
9846 


JMP 


UPDBY2 


*S|(S|(S|(S|(S|(S|(S|<S|<S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|(S|(> 


K * * SK * SK * * SK S|< !|( 


H< sK sK sK sK sK sK s| 






9847 










9848 










9849 






F069 


A900 


9850 I 


JNITRD 


LDA 


F06B 


4C70F0 


9851 
9852 
9853 
9854 


JMP 


UNITRW 


F06E 


A901 


9855 I 
9856 
9857 
9858 


JNITWR 


LDA 


F070 


857C 


9859 I 
9860 
9861 
9862 


JNITRW 


STA 


F072 


A001 


9863 


LDY 


#1 


F074 


847E 


9864 


STY 


A7E 


F076 


8480 


9865 


STY 


A80 


F078 


ACICBF 


9866 


LDY 


SPCHAR 


F07B 


8CACEE 


9867 


STY 


INULO 
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F07E 68 


9868 


PLA 




F07F AA 


9869 


TAX 




F080 8582 


9870 


STA 


A82 


F082 4A 


9871 


LSR 


A 


F083 4A 


9872 


LSR 


A 


F084 4A 


9873 


LSR 


A 


F085 4A 


9874 


LSR 


A 


F086 2903 


9875 


AND 


#$03 


F088 0D1CBF 


9876 


ORA 


SPCHAR 


F08B 8D1CBF 


9877 


STA 


SPCHAR 


F08E A000 


9878 


LDY 


#0 


F090 8CDEBD 


9879 


STY 


lORSLT 


F093 8A 


9880 


TXA 




F094 2904 


9881 


AND 


#$04 


F096 D002 


9882 


BNZ 


INUNU 


F098 847E 


9883 


STY 


A7E 


F09A 8A 


9884 INUNU TXA 




F09B 2908 


9885 


AND 


#$08 


F09D D002 


9886 


BNZ 


INUNV 


F09F 8480 


9887 


STY 


A80 


F0A1 68 


9888 INUNV PLA 




F0A2 8583 


9889 


STA 


A82+1 


F0A4 68 


9890 


PLA 




F0A5 8576 


9891 


STA 


A76 


F0A7 68 


9892 


PLA 




F0A8 8577 


9893 


STA 


A76+1 


F0AA 68 


9894 


PLA 




F0AB 8578 


9895 


STA 


A78 


F0AD F011 


9896 


BZ 


INUNZ 


F0AF 68 


9897 


PLA 




F0B0 8579 


9898 


STA 


A78+1 


F0B2 3003 


9899 


BM 


UNTERX 


F0B4 4CC7F0 


9900 
9901 
9902 
9903 


JMP 


INUOA 


F0B7 68 


9904 I 


JNTERX 


PLA 


F0B8 68 


9905 


PLA 




F0B9 68 


9906 


PLA 




F0BA 68 


9907 


PLA 




F0BB 68 


9908 


PLA 




F0BC 68 


9909 


PLA 




F0BD 4C3BD2 


9910 
9911 
9912 
9913 


JMP 


UPDBY2 


F0C0 68 


9914 ] 


[NUNZ PLA 




F0C1 F0F4 


9915 


BZ 


UNTERX 


F0C3 30F2 


9916 


BM 


UNTERX 


F0C5 8579 


9917 


STA 


A78+1 


F0C7 68 


9918 ] 


[NUOA PLA 




F0C8 857A 


9919 


STA 


A7A 


F0CA 68 


9920 


PLA 




F0CB 857B 


9921 


STA 


A7A+1 


F0CD 18 


9922 


CLC 




F0CE 68 


9923 


PLA 




F0CF 657A 


9924 


ADC 


A7A 


F0D1 857A 


9925 


STA 


A7A 


F0D3 68 


9926 


PLA 




F0D4 657B 


9927 


ADC 


A7A+1 
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F0D6 857B 


9928 




STA 


A7A+1 


F0D8 68 


9929 




PLA 




F0D9 8584 


9930 




STA 


A84 


F0DB AA 


9931 




TAX 




F0DC 68 


9932 




PLA 




F0DD 8A 


9933 




TXA 




F0DE 20CDEE 


9934 




JSR 


VALVNO 


F0E1 2980 


9935 




AND 


#$80 


F0E3 F00C 


9936 




BZ 


INUOB 


F0E5 2036F0 


9937 




JSR 


INUNN 


F0E8 8A 


9938 




TXA 




F0E9 A67C 


9939 




LDX 


A7C 


F0EB 2039FF 


9940 




JSR 


JUSER 


F0EE 4C2AF0 


9941 
9942 
9943 
9944 




JMP 


UNTOKX 


F0F1 8A 


9945 


INUOB TXA 




F0F2 0A 


9946 




ASL 


A 


F0F3 A8 


9947 




TAY 




F0F4 B9AFFE 


9948 




LDA 


DSKNUM-1,Y 


F0F7 F010 


9949 




BZ 


INUOC 


F0F9 C9FF 


9950 




CMP 


#$FF 


F0FB F022 


9951 




BE 


INUOE 


F0FD 2036F0 


9952 




JSR 


INUNN 


F100 8A 


9953 




TXA 




F101 A67C 


9954 




LDX 


A7C 


F103 203CFF 


9955 




JSR 


JUDDRV 


F106 4C2AF0 


9956 
9957 
9958 
9959 




JMP 


UNTOKX 


F109 BEAEFE 


9960 


INUOC 


LDX 


DSKNUM-2,Y 


F10C 2036F0 


9961 




JSR 


INUNN 


F10F A57C 


9962 




LDA 


A7C 


Fill D006 


9963 




BNZ 


INUOD 


F113 2012FF 


9964 




JSR 


J DREAD 


F116 4C2AF0 


9965 
9966 
9967 
9968 




JMP 


UNTOKX 


F119 200FFF 


9969 


INUOD JSR 


JDWRT 


Flic 4C2AF0 


9970 
9971 
9972 
9973 




JMP 


UNTOKX 


FllF A901 


9974 


INUOE 


LDA 


#1 


F121 E001 


9975 




CPX 


#1 


F123 D002 


9976 




BNE 


INUOF 


F125 A900 


9977 




LDA 


#0 


F127 8574 


9978 


INUOF STA 


A74 




9979 


ifnc 


ef GRIG 




9980 




CPX 


#9 




9981 




BL 


TXA 




9982 




LDX 


#2 




9983 




BNZ 


JUOKX 




9984 


TXA 








9985 


end: 


f 




F129 8A 


9986 




TXA 




F12A 0A 


9987 




ASL 


A 
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F12B 


AA 


9988 




TAX 




F12C 


BDABEE 


9989 




LDA 


INULP-2,X 


F12F 


858A 


9990 




STA 


A8A 


F131 


BDACEE 


9991 




LDA 


INULP-1,X 


F134 


858B 


9992 




STA 


A8A+1 


F136 


BDBBEE 


9993 




LDA 


INULS-2,X 


F139 


8586 


9994 




STA 


A86 


F13B 


BDBCEE 


9995 




LDA 


INULS-1,X 


F13E 


8587 


9996 




STA 


A86+1 


F140 


A57C 


9997 




LDA 


A7C 


F142 


F009 


9998 




BZ 


INUOH 


F144 


A58B 


9999 




LDA 


A8A+1 


F146 


D009 


10000 




BNZ 


INUOI 


F148 


A203 


10001 


INUOG 


LDX 


#3 


F14A 


4C2AF0 


10002 


JUOKX JMP 


UNTOKX 


F14D 


A587 


10003 


INUOH 


LDA 


A86+1 


F14F 


F0F7 


10004 




BZ 


INUOG 


F151 


A678 


10005 


INUOI 


LDX 


A78 


F153 


4CA1F1 


10006 




JMP 


INUOV 


F156 


A57C 


10007 


INUOJ 


LDA 


A7C 


F158 


D038 


10008 




BNZ 


INUOR 


F15A 


2002F2 


10009 




JSR 


INUPN 


F15D 


A200 


10010 




LDX 


#0 


F15F 


817A 


10011 




STA 


(A7A,X) 


F161 


A47E 


10012 




LDY 


A7E 


F163 


D023 


10013 




BNZ 


INUOP 


F165 


CD30BE 


10014 




CMP 


ABE30 


F168 


D01E 


10015 




BNE 


INUOP 


F16A 


A001 


10016 




LDY 


#1 


F16C 


C484 


10017 




CRY 


A84 


F16E 


F003 


10018 




BE 


INUOL 


F170 


4C60F0 


10019 




JMP 


INUNO 


F173 


A900 


10020 


INUOL LDA 


#0 


F175 


817A 


10021 


INUOM STA 


(A7A,X) 


F177 


E67A 


10022 




INC 


A7A 


F179 


D002 


10023 




BNZ 


INUOO 


F17B 


E67B 


10024 




INC 


A7A+1 


F17D 


C678 


10025 


INUOG DEC 


A78 


F17F 


D0F4 


10026 




BNZ 


INUOM 


F181 


C679 


10027 




DEC 


A78+1 


F183 


10F0 


10028 




BNM 


INUOM 


F185 


4C60F0 


10029 




JMP 


INUNO 


F188 


A474 


10030 


INUOP LDY 


A74 


F18A 


D00D 


10031 




BNZ 


INUOS 


F18C 


20AAF1 


10032 




JSR 


INUOW 


F18F 


4C99F1 


10033 




JMP 


INUOS 


F192 


A200 


10034 


INUOR LDX 


#0 


F194 


A17A 


10035 




LDA 


(A7A,X) 


F196 


20AAF1 


10036 




JSR 


INUOW 


F199 


E67A 


10037 


INUOS 


INC 


A7A 


F19B 


D002 


10038 




BNZ 


INUOU 


F19D 


E67B 


10039 




INC 


A7A+1 


F19F 


C678 


10040 


INUOU DEC 


A78 


FlAl 


D0B3 


10041 


INUOV BNZ 


INUOJ 


F1A3 


C679 


10042 




DEC 


A78+1 


F1A5 


10AF 


10043 




BNM 


INUOJ 


F1A7 


4C60F0 


10044 
10045 




JMP 


INUNO 


!(!>t;**>t;***>t;>t;*!|<!|<!|<!|<!|<s|<!|<!|(s|(s|<!|<!|<!|<!|<****>t;******>t;>t;***>t;!| 
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10047 










10048 






FIAA 


A47E 


10049 ] 


[NUOW LDY 


A7E 


FIAC 


D028 


10050 


BNZ 


INUPB 


FIAE 


A484 


10051 


LDY 


A84 


F1B0 


B696 


10052 


LDX 


A96,Y 


F1B2 


F018 


10053 


BZ 


INUPA 


F1B4 


38 


10054 


SEC 




F1B5 


E91F 


10055 


SBC 


#$1F 


F1B7 


858E 


10056 


STA 


A8E 


F1B9 


A920 


10057 ] 


[NUOY LDA 


#$20 


FIBB 


C68E 


10058 


DEC 


A8E 


FIBD 


F006 


10059 


BZ 


INUOZ 


FIBF 


20F1F1 


10060 


JSR 


INUPJ 


F1C2 


4CB9F1 


10061 


JMP 


INUOY 


F1C5 


A200 


10062 ] 


[NUOZ LDX 


#0 


F1C7 


A484 


10063 


LDY 


A84 


F1C9 


9696 


10064 


STX 


A96,Y 


FICB 


60 


10065 


RTS 




FlCC 


C910 


10066 ] 


[NUPA CMP 


#$10 


FICE 


D006 


10067 


BNE 


INUPB 


F1D0 


A901 


10068 


LDA 


#$01 


F1D2 


999600 


10069 


STA 


A96,Y 


F1D5 


60 


10070 


RTS 




F1D6 


A480 


10071 ] 


[NUPB LDY 


A80 


F1D8 


D00D 


10072 


BNZ 


INUPD 


FIDA 


C90D 


10073 


CMP 


#$0D 


FIDC 


D009 


10074 


BNE 


INUPD 


FIDE 


20F1F1 


10075 


JSR 


INUPJ 


FlEl 


A90A 


10076 


LDA 


#$0A 


F1E3 


20F1F1 


10077 


JSR 


INUPJ 


F1E6 


60 


10078 


RTS 




F1E7 


20F1F1 


10079 ] 


[NUPD JSR 


INUPJ 


FlEA 


60 


10080 
10081 
10082 
10083 


RTS 




FIEB 


ECFl 


10084 ] 
10085 
10086 
10087 


[NUPF DW 


AFlED-1 


FIED 


8EDEBD 


10088 / 


\F1ED STX 


lORSLT 


F1F0 


60 


10089 
10090 


RTS 




*!(C!|C!|C!(CS(C!(C!|CS(CS(!!(CS(C!(C!(C!|CS|CS(CS(C!|CS(C!(C> 


KS(C!|CS(CS(C!|CS|C!(CS(C!|C^ 


^S(CS(C!|C!(C!(CS(C!(C!|C^ 






10091 










10092 










10093 






FlFl 


A8 


10094 ] 


[NUPJ TAY 




F1F2 


ADECFl 


10095 


LDA 


INUPF+1 


F1F5 


48 


10096 


PHA 




F1F6 


ADEBFl 


10097 


LDA 


INUPF 


F1F9 


48 


10098 


PHA 




FIFA 


98 


10099 


TYA 




FIFB 


A484 


10100 


LDY 


A84 


FIFD 


A201 


10101 


LDX 


#1 


FIFF 


6C8A00 


10102 


JMP 


(A8A) 
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F202 A8 

F203 ADECFl 

F206 48 

F207 ADEBFl 

F20A 48 

F20B 98 

F20C A484 

F20E A200 

F210 6C8600 



10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
71 



INUPN TAY 
LDA 
PHA 
LDA 
PHA 
TYA 
LDY 
LDX 
JMP 



INUPF+1 



INUPF 



A84 

#0 

(A86) 



INCLUDE 



INIT0.IAS 



F213 ICBD 
F215 3EBE 
F217 DEBD 



F219 00D1 
F21B 00D0 



F21D A0D6 

F21F 0000 

F221 00 

F222 00 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



.PAGE 'Initialization - Address constants' 



ADRHIM DW ABDIC 

ASYSPT DW SYPTBL 

ADRIOR DW lORSLT 
ifdef GRIG 



ACSPT DW 

APCT DW 

endif 



ADRXIT 
AF21F DW 
AF221 DB 
AF222 DB 
ifdef BIG 



ADRMl DW 

ADRM2 DW 

endif 



CSPTBL 
PCTBL 



DW 






A0800 
PTRIOP 



XIT 



; $C000 



F223 0D535953 



F231 0D 

F232 496E7365 

F255 0D0A 

F257 6F6E2069 



F269 52455345 



29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



;.PAGE 'Initialization - String constants' 
ifdef GRIG 



SYSPK STR ' SYSTEM . PASCAL ' 
endif 



INUPG DB $0D 

ASC 'Insert boot disk with SYSTEM. PASCAL' 

DB $0D,$0A 

ASC 'on it, then press ' 
ifndef GRIG 

ASC 'RETURN' 
else 

ASC 'RESET' 
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47 


endif 




F26E 


23 


48 


ASC 


'#' 






49 


ifndef GRIG 






50 










51 










52 










53 


SYSPK STR 


'SYSTEM. PASCAL' 






54 


ASC 


' is not VI. 3#' 






55 










56 










57 










58 


ifdef BIG 








59 


MEMRK DB 


$0D 






60 


ASC 


'128K memory required* 






61 


endif 








62 










63 










64 










65 


AF26F DW 


INULP 






66 


DW 


INULS 






67 


/ 








68 


t 








69 


t 








70 


JINTJT 


JMP (NFFE2) 






71 


t 








72 


t 








73 


t 








74 


ACD2MV 


DW RELGC 






75 


endif 








76 


ifdef GRIG 








77 










78 










79 










80 


AF26F 








81 


ifndef II( 




F26F 


ADEEBD 


82 


LDA 


' SYCJTB 


F272 


EE 


83 
84 


DB 
else 


$EE 






85 


ADC 


$EE,X 






86 


STA 


$EE 






87 


endif 








88 










89 










90 






F273 


75F2 


91 
92 


ACD2MV 
endif 


DW MINITC 






93 


;.PAGE 'Initialization - Copy init 






94 










95 


; Set source pointer 






96 






F275 


AD73F2 


97 


MINITC 


LDA ACD2MV 


F278 


8500 


98 


STA 


A00 


F27A 


AD74F2 


99 


LDA 


ACD2MV+1 


F27D 


8501 


100 
101 


STA 


A00+1 






102 


; Set destination pointer 






103 






F27F 


A968 


104 


LDA 


#<A6800 


F281 


8503 


105 


STA 


A02+1 
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F283 A900 
F285 8502 



F287 
F288 


AA 
A8 


F289 
F28B 


B100 
9102 


F28D 
F28E 


C8 
D0F9 


F290 
F292 


E601 
E603 


F294 


E8 


F295 
F297 


E004 
D0F0 



F299 4C2768 



F29C A2FF 
F29E 9A 



F29F D8 



106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
72 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 



LDA 
STA 



#>A6800 
A02 



Clear index registers 



LDA 
TAX 
TAY 



#0 



Copy a byte 



INUPT LDA 
STA 



(A00),Y 
(A02),Y 



Branch if page not copied yet 



INY 
BNZ 



INUPT 
Add 256 to source and destination pointers 



INC 
INC 



A00+1 
A02+1 



Increment page count 

INX 

Branch if desired number of pages not copied yet 



CPX 
BNE 



#INTPGS 
INUPT 



ifdef GRIG 
* JMP A6800+RELOC-MINITC 
db $4c,$27,$68 
else 

JMP A6800 
endif 



RELOC 

INCLUDE INIT2.IAS 

.PAGE 'Part 2 of initialization' 

Initialize stack pointer 

#$FF 



LDX 
TXS 



Clear decimal flag (again) 
CLD 
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F2A0 ADAAEE 

F2A3 8D1DBF 

F2A6 ADABEE 

F2A9 8D1EBF 



F2AC AD1DF2 

F2AF 8D2FBF 

F2B2 AD1EF2 

F2B5 8D30BF 



F2B8 AD17F2 

F2BB 8D1FBF 

F2BE AD18F2 

F2C1 8D20BF 



F2C4 A902 

F2C6 8D21BF 

F2C9 A901 

F2CB 8D22BF 



F2CE AD6FF2 

F2D1 85E6 

F2D3 AD70F2 

F2D6 85E7 



F2D8 AD71F2 

F2DB 85E4 

F2DD AD72F2 

F2E0 85E5 



14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 



LDA 


INULL 


STA 


IBRK 


LDA 


INULL+1 


STA 


IBRK+1 


LDA 


ADRXIT 


STA 


XITLOC 


LDA 


ADRXIT+1 


STA 


XITLOC+1 


LDA 


ADRIOR 


STA 


ISYSC 


LDA 


ADRIOR+1 


STA 


ISYSC+1 


'ifndef GRIG 


LDA 


#FLAVK 


STA 


FLAVOR 


LDA 


#VERK 


STA 


VER 


else 




LDA 


#VERK 


STA 


VER 


LDA 


#FLAVK 


STA 


FLAVOR 



endif 



LDA 
STA 
LDA 
STA 



LDA 
STA 
LDA 
STA 
ifdef BIG 



AF26F 
WTPTR 
AF26F+1 
WTPTR+1 



AF26F+2 
RTPTR 
AF26F+3 
RTPTR+1 



61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 



.PAGE 



LDA 
STA 
LDA 
STA 



LDA 



ADRMl 
BZ62 
ADRMl+1 
BZ62+1 



#>SYSMEM 
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73 


STA 


BZ64 




74 


STA 


BZ66 




75 


LDA 


#<SYSMEM 




76 


STA 


BZ64+1 




77 


STA 


BZ66+1 




78 


endif 






79 


.PAGE 






80 








81 


Move 


42 mystery bytes to SYSCOM 




82 






F2E2 A029 


83 


LDY 


#41 




84 ] 


[NVAA 






85 


ifndef GRIG 




86 


LDA 


INVAB+RELOC-CLRMEM,Y 




87 


else 




F2E4 B908F3 


88 


LDA 


INVAB.Y 




89 


endif 




F2E7 9956BF 


90 


STA 


ABF56,Y 


F2EA 88 


91 


DEY 




F2EB 10F7 


92 
93 


BNM 


I NVAA 




94 


Move 


address of 42 mystery bytes to SY 




95 






F2ED A956 


96 


LDA 


#>ABF56 


F2EF 8D23BF 


97 


STA 


ABF23 


F2F2 A9BF 


98 


LDA 


#<ABF56 


F2F4 8D24BF 


99 
100 
101 
102 


STA 


ABF23+1 


F2F7 ADB7FE 


103 


LDA 


DSKNUM+7 


F2FA F036 


104 
105 
106 
107 


BZ 


INVAC 


F2FC A202 


108 


LDX 


#$02 


F2FE A904 


109 


LDA 


#$04 


F300 A008 


110 


LDY 


#$08 


F302 203CFF 


111 


JSR 


JUDDRV 


F305 18 


112 


CLC 




F306 902F 


113 
114 
115 
116 


BNC 


INVAD 


F308 C0D2 


117 ] 


[NVAB DB 


$C0,$D2 


F30A 5CD5 


118 


DB 


$5C,$D5 


F30C 7AD3 


119 


DB 


$7A,$D3 


F30E 0FD2 


120 


DB 


$0F,$D2 


F310 20B3B3 


121 


DB 


$20,$B3,$B3 


F313 A54685 


122 


DB 


$A5,$46,$85 


F316 4CB3 


123 


DB 


$4C,$B3 


F318 B34CB3B3 


124 


DB 


$B3 , $4C , $B3 , $B3 , $0E , $49 , $AB , $45 


F320 CD484A68 


125 


DB 


$CD , $48 , $4A, $68 , $2A, $C9 , $04, $2A 


F328 854660A4 


126 


DB 


$85, $46, $60, $A4, $46, $24, $00 


F32F 4C10D3 


127 
128 
129 
130 


DB 


$4C,$10,$D3 


F332 A904 


131 ] 


[NVAC LDA 


#$04 
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F334 


2015FF 


132 




JSR 


JDINIT 






133 


; .PAGE 








134 












135 




Clear registers 






136 












137 


'ifnd 


ef GRIG 






138 


INVAD 


LDA 


#0 






139 




TAX 








140 


else 






F337 


A200 


141 


INVAD 


LDX 


#0 


F339 


A900 


142 




LDA 


#0 






143 


endi 


f 








144 












145 




Clear 256 bytes 






146 








F33B 


9DDEBD 


147 


INVAE STA 


lORSLT.X 


F33E 


E8 


148 




INX 




F33F 


D0FA 


149 
150 
151 
152 




BNZ 


INVAE 


F341 


9DDEBE 


153 


INVAF STA 


I0RSLT+256,X 


F344 


E8 


154 




INX 




F345 


E020 


155 




CPX 


#XXX-I0RSLT-256 


F347 


D0F8 


156 




BNE 


INVAF 






157 


;.PAGE 'Load directory' 






158 












159 




Push 


zero word onto stack 






160 








F349 


A900 


161 




LDA 


#0 


F34B 


48 


162 




PHA 




F34C 


48 


163 
164 




PHA 








165 




Push 


??? onto stack 






166 












167 


* 


LDA 


#0 


F34D 


48 


168 




PHA 




F34E 


ADB7FE 


169 




LDA 


DSKNUM+7 


F351 


F004 


170 




BZ 


INVAG 


F353 


A904 


171 




LDA 


#$04 


F355 


1003 


172 




BNM 


INVAH 


F357 


ADB6FE 


173 


INVAG 


LDA 


DSKNUM+6 


F35A 


48 


174 
175 


INVAH 


PHA 








176 




Push 


directory read address onto stac 






177 








F35B 


A960 


178 




LDA 


#<A6000 


F35D 


48 


179 




PHA 




F35E 


8581 


180 




STA 


A80+1 


F360 


A900 


181 




LDA 


#>A6000 


F362 


48 


182 




PHA 




F363 


8580 


183 
184 




STA 


A80 






185 




Push 


directory block count onto stack 






186 








F365 


A908 


187 




LDA 


#>8 


F367 


48 


188 




PHA 




F368 


A900 


189 




LDA 


#<8 
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F36A 48 


190 
191 




PHA 






192 




Push 


starting block number onto 




193 










194 


* 


LDA 


#<2 


F36B 48 


195 




PHA 




F36C A902 


196 




LDA 


#>2 


F36E 48 


197 
198 




PHA 






199 




Read 


directory into memory 




200 








F36F ADB7FE 


201 




LDA 


DSKNUM+7 


F372 F00C 


202 
203 
204 
205 




BZ 


INVAI 


F374 A200 


206 




LDX 


#$00 


F376 A904 


207 




LDA 


#$04 


F378 A008 


208 




LDY 


#$08 


F37A 203CFF 


209 




JSR 


JUDDRV 


F37D 18 


210 




CLC 




F37E 9003 


211 
212 
213 
214 


/ 
1 
1 


BNC 


BEGBQ 


F380 2012FF 


215 


INVAI JSR 


JDREAD 




216 


t 








217 


t 








218 


t 








219 


BEGBQ 








220 


ifnd 


ef GRIG 




221 


; .PAGE '???' 




222 










223 










224 










225 




LDA 


A6000+25 




226 




AND 


#$08 




227 




BNZ 


BEGBR 




228 










229 










230 










231 




BIT 


ABF31 




232 




BNV 


BEGBS 




233 




LDA 


AC060 




234 




BNM 


BEGBS 




235 


BEGBR LDA 


#$00 




236 




BZ 


BEGBU 




237 


BEGBS 


LDA 


ABF0E 




238 




STA 


SLTYPS+3 




239 


/ 








240 


/ 








241 


/ 








242 




LDY 


#$30 




243 


/ 








244 


/ 


Read 


and write RAM; use bank #2 




245 


t 








246 




LDX 


LCBNK2 




247 


t 








248 


t 
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F383 A24E 



F385 18 
F386 A580 
F388 6906 
F38A 8580 
F38C 900D 
F38E E681 



249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 

283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 



JSR JINTJT 

Read and write RAM; use bank #1 

LDA LCBNKl 



LDA #$00 

CPX #$00 

BNE BEGBU 

LDA #$04 

BEGBU STA ABF0E 
ifdef BIG 



LDA ABF31 

AND #$02 

BNZ INVAJ 

TAY 

STY AF222 

INVAM LDA MEMRK.Y 

CMP #'# 

BE * 

JSR JCWRT 

INC AF222 

LDY AF222 

CLC 

BNC INVAM 
INVAJ 
endif 
endif 

.PAGE 'Search directory for SYSTEM. PASCAL' 

Set count of entries in entire directory 



LDX #78 
ifndef GRIG 

Set directory entry pointer 



LDA 
STA 
LDA 
STA 



#<A6000 
A80+1 
#>A6000 
A80 



endif 



; Point 


at nam 


CLC 




LDA 


A80 


ADC 


#6 


STA 


A80 


BNC 


INVAL 


INC 


A80+1 



Increment directory entry pointer 
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308 










F390 


18 


309 ] 


[NVAK CLC 








F391 


A580 


310 


LDA 


A80 






F393 


691A 


311 


ADC 


#26 






F395 


8580 


312 


STA 


A80 






F397 


9002 


313 


BNC 


INVAL 






F399 


E681 


314 
315 


INC 


A80+1 










316 


Branch 


if more entries to 


check 








317 










F39B 


CA 


318 ] 


[NVAL DEX 








F39C 


D053 


319 
320 
321 
322 
323 
324 
325 


BNZ 

ifndef ORIC 

TXA 
else 


INVAR 






F39E 


A900 


326 
327 


LDA 
endif 


#0 






F3A0 


8597 


328 


STA 


A96+1 






F3A2 


8598 


329 
330 
331 
332 


STA 


A96+2 






F3A4 


ADABEE 


333 


LDA 


INULL+1 






F3A7 


48 


334 


PHA 








F3A8 


ADAAEE 


335 


LDA 


INULL 






F3AB 


48 


336 


PHA 








F3AC 


AD18F2 


337 


LDA 


ADRIOR+1 






F3AF 


48 


338 


PHA 








F3B0 


AD17F2 


339 


LDA 


ADRIOR 






F3B3 


48 


340 


PHA 








F3B4 


2006FF 


341 
342 


JSR 


JCINIT 










343 


Initialize for display of 


two line "Insert boot disk.. 


II 






344 










F3B7 


A000 


345 


LDY 


#0 






F3B9 


8C22F2 


346 
347 


STY 


AF222 










348 


Branch 


if message display 


not complete 








349 










F3BC 


B931F2 


350 ] 


[NVAN LDA 


INUPQ,Y 






F3BF 


C923 


351 


CMP 


#'# 






F3C1 


D022 


352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 [ 

367 


BNE 
ifndef ORIC 

LDA 
BNZ 

INC 

Wait f 

3EGCA LDA 
BNM 


INVAQ 

AF221 
BEGCA 

AF221 

or press of any key 

KBD 
BEGCA 







Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 199 of 292 



Apple ][ Pascal Technical Information 



F3C3 AD21F2 
F3C6 DOPE 



F3C8 ADFCFF 

F3CB 8D1FF2 

F3CE ADFDFF 

F3D1 8D20F2 



F3D4 ADF8FF 
F3D7 8DFCFF 
F3DA ADF9FF 
F3DD 8DFDFF 



F3E0 EE21F2 
F3E3 DOFE 



F3E5 2003FF 



F3E8 EE22F2 
F3EB AC22F2 



F3EE 18 
F3EF 90CB 



F3F1 AC23F2 
F3F4 B180 
F3F6 D923F2 



368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 



Clear stobre 

STA KBSTRB 

Branch if not return key pressed 

AND #$7F 
CMP #$0D 
BNE BEGCA 



else 



LDA 
INVAO BNZ 



LDA 
STA 
LDA 
STA 



LDA 
STA 
LDA 
STA 



JMP (AFFF8) 



AF221 
INVAO 



AFFFC 
AF21F 
AFFFC+1 
AF21F+1 



AFFF8 
AFFFC 
AFFF8+1 
AFFFC+1 



INC AF221 
INVAR BNZ INVAP 
endif 

; Display character of message 

INVAQ JSR JCWRT 

; Increment index into message 

INC AF222 
LDY AF222 

Go continue message display 

CLC 

BNC INVAN 

Compare entry file name against "SYSTEM. PASCAL" 

INVAR LDY SYSPK 
INVAS LDA (A80),Y 
CMP SYSPK, Y 
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F3F9 


D095 


428 




BNE 


INVAK 




F3FB 


88 


429 




DEY 






F3FC 


10F6 


430 




BNM 


INVAS 








431 


;.PAGE 'Load SYSTEM. PASCAL' 








432 














433 




CalcL 


late address of start of 


entry 






434 










F3FE 


A580 


435 




LDA 


A80 




F400 


38 


436 




SEC 






F401 


E906 


437 




SBC 


#6 




F403 


8580 


438 




STA 


A80 




F405 


B002 


439 




BC 


INVAT 




F407 


C681 


440 
441 




DEC 


A80+1 








442 




Extract starting block number 








443 










F409 


A000 


444 


INVAT LDY 


#0 




F40B 


B180 


445 




LDA 


(A80),Y 




F40D 


857A 


446 




STA 


BLKNUM 




F40F 


C8 


447 




INY 






F410 


B180 


448 




LDA 


(A80),Y 




F412 


857B 


449 
450 
451 
452 




STA 


BLKNUM+1 




F414 


A900 


453 




LDA 


#0 




F416 


48 


454 




PHA 






F417 


48 


455 
456 
457 
458 




PHA 










459 


* 


LDA 


#0 




F418 


48 


460 




PHA 






F419 


ADB7FE 


461 




LDA 


DSKNUM+7 




F41C 


F004 


462 




BZ 


INVAU 




F41E 


A904 


463 




LDA 


#$04 




F420 


1003 


464 




BNM 


INVAV 




F422 


ADB6FE 


465 


INVAU 


LDA 


DSKNUM+6 




F425 


48 


466 
467 
468 
469 


INVAV 


PHA 






F426 


A960 


470 




LDA 


#<A6000 




F428 


48 


471 




PHA 






F429 


A900 


472 




LDA 


#>A6000 




F42B 


48 


473 
474 
475 
476 




PHA 






F42C 


A901 


477 




LDA 


#>INITK3 




F42E 


48 


478 




PHA 






F42F 


A900 


479 




LDA 


#<INITK3 




F431 


48 


480 
481 
482 
483 




PHA 






F432 


A57B 


484 




LDA 


BLKNUM+1 




F434 


48 


485 




PHA 






F435 


A57A 


486 




LDA 


BLKNUM 
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F437 48 



F438 ADB7FE 
F43B F00C 



F43D A200 

F43F A904 

F441 A008 

F443 203CFF 

F446 18 

F447 9003 



F449 2012FF 



F44C A200 
F44E A900 

F450 9D1EBD 
F453 E8 
F454 E040 
F456 D0F8 



F458 AD15F2 
F45B 8574 
F45D AD16F2 
F460 8575 



487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 

506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 



PHA 



; Read 


SYSTEM . PAS 


LDA 


DSKNUM+7 


BZ 


INVAW 


LDX 


#$00 


LDA 


#$04 


LDY 


#$08 


JSR 


JUDDRV 


CLC 




BNC 


IN VAX 



INVAW JSR JDREAD 

PAGE 'Initialize SYSCOMM tables' 

Clear segment use counter table 

INVAX 
ifndef GRIG 

LDA #0 

TAX 
else 

LDX 

LDA 
endif 
INVAY STA 

INX 

CPX #INITK2 

BNE INVAY 



#0 
#0 

SUCTBL.X 



Initialize destination pointer 



LDA 
STA 
LDA 
STA 
ifndef GRIG 



ASYSPT 
A74 

ASYSPT+1 
A74+1 



LDA 
STA 
LDA 
STA 
LDY 
LDA 
DEC 



#<A6000+256 

A76+1 

#>A6000+256 

A76 

#3 

(A76),Y 

A76+1 



Branch if correct version of SYSTEM. PASCAL 

AND #$E0 
CMP #$C0 
BE BEGCG 
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F462 A960 
F464 8577 
F466 A900 
F468 8576 



F46A 


A210 


F46C 


A000 


F46E 


A904 


F470 


9174 


F472 


C8 


F473 


A900 


F475 


9174 


F477 


A574 


F479 


18 


F47A 


6902 


F47C 


8574 


F47E 


9002 


F480 


E675 


F482 


A000 


F484 


18 


F485 


B176 


F487 


657A 


F489 


9174 


F48B 


C8 


F48C 


B176 


F48E 


657B 


F490 


9174 


F492 


C8 


F493 


B176 


F495 


9174 


F497 


C8 


F498 


B176 


F49A 


9174 



546 






547 


Display " . . .not 


548 






549 


LDY 


#0 


550 


STY 


AF222 


551 BEGCM LDA 


SYSPK.Y 


552 


CMP 


#'# 


553 BEGCN BE 


BEGCN 


554 


JSR 


JCWRT 


555 


INC 


AF222 


556 


LDY 


AF222 


557 


BNM 


BEGCM 


558 BEGCO 




559 


else 




560 






561 






562 






563 


LDA 


#<A6000 


564 


STA 


A76+1 


565 


LDA 


#>A6000 


566 


STA 


A76 


567 


endif 




568 


.PAGE 'Bui 


Id ??? tat 


569 






570 






571 






572 


LDX 


#16 


573 ] 


[NVAZ LDY 


#0 


574 


LDA 


#$04 


575 


STA 


(A74),Y 


576 


ifndef GRIG 


577 


TYA 




578 


endif 




579 


INY 




580 


ifdef GRIG 




581 


LDA 


#0 


582 


endif 




583 


STA 


(A74),Y 


584 


LDA 


A74 


585 


CLC 




586 


ADC 


#2 


587 


STA 


A74 


588 


BNC 


INVBA 


589 


INC 


A74+1 


590 ] 


[NVBA LDY 


#0 


591 


CLC 




592 


LDA 


(A76),Y 


593 


ADC 


BLKNUM 


594 


STA 


(A74),Y 


595 


INY 




596 


LDA 


(A76),Y 


597 


ADC 


BLKNUM+1 


598 


STA 


(A74),Y 


599 


INY 




600 


LDA 


(A76),Y 


601 


STA 


(A74),Y 


602 


INY 




603 


LDA 


(A76),Y 


604 


STA 


(A74),Y 
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605 








606 


Update 


destination pointer 




607 






F49C A574 


608 


LDA 


A74 


F49E 18 


609 


CLC 




F49F 6904 


610 


ADC 


#4 


F4A1 8574 


611 


STA 


A74 


F4A3 9002 


612 


BNC 


INVBB 


F4A5 E675 


613 
614 


INC 


A74+1 




615 


Update 


source pointer 




616 






F4A7 A576 


617 ] 


[NVBB LDA 


A76 


F4A9 18 


618 


CLC 




F4AA 6904 


619 


ADC 


#4 


F4AC 8576 


620 


STA 


A76 


F4AE 9002 


621 


BNC 


INVBC 


F4B0 E677 


622 
623 


INC 


A76+1 




624 


Branch 


if more segments 




625 






F4B2 CA 


626 ] 


[NVBC DEX 




F4B3 D0B7 


627 


BNZ 


INVAZ 




628 


.PAGE '1.1.1. 






629 


ifdef BIG 






630 








631 








632 








633 


LDA 


ADRM2 




634 


STA 


BZ60 




635 


LDA 


ADRM2+1 




636 


STA 


BZ60+1 




637 


endif 






638 








639 








640 






F4B5 AD13F2 


641 


LDA 


ADRHIM 


F4B8 855C 


642 


STA 


PSKPTR 


F4BA 8552 


643 


STA 


MSPTR 


F4BC 8DF2BD 


644 


STA 


ABDF2 


F4BF AD14F2 


645 


LDA 


ADRHIM+1 


F4C2 855D 


646 


STA 


PSKPTR+1 


F4C4 8553 


647 


STA 


MSPTR+1 


F4C6 8DF3BD 


648 
649 


STA 


ABDF2+1 




650 


Read mystery segment into 




651 








652 


ifndef GRIG 




653 


LDA 


#$0C 




654 


else 




F4C9 A900 


655 


LDA 


#$00 




656 


endif 




F4CB 855B 


657 


STA 


HPPTR+1 


F4CD A90F 


658 


LDA 


#15 


F4CF 2017E4 


659 
660 
661 
662 


JSR 


RDSEG 




663 


ifdef BIG 
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664 




LDA 


BZ60 




665 


else 






F4D2 A55C 


666 




LDA 


PSKPTR 




667 


endi 


f 




F4D4 856C 


668 




STA 


A6C 




669 


ifdef BIG 






670 




LDA 


BZ60+1 




671 


else 






F4D6 A55D 


672 




LDA 


PSKPTR+1 




673 


endi 


f 




F4D8 856D 


674 
675 
676 
677 




STA 


A6C+1 




678 


ifde 


f BIG 






679 




LDA 


#$FD ; *** 




680 




STA 


BZ60+1 




681 




LDA 


#$FC ; *** 




682 




STA 


BZ60 




683 


else 






F4DA A9FE 


684 




LDA 


#$FE ; *** 


F4DC 855D 


685 




STA 


PSKPTR+1 


F4DE A97C 


686 




LDA 


#$7C ; *** 


F4E0 855C 


687 




STA 


PSKPTR 




688 


endi 


f 






689 










690 










691 








F4E2 A900 


692 




LDA 


#$00 


F4E4 20A5E4 


693 
694 
695 
696 




JSR 


LODSEG 


F4E7 A56C 


697 




LDA 


A6C 




698 


ifdef BIG 






699 




STA 


BZ60 




700 


else 






F4E9 855C 


701 




STA 


PSKPTR 




702 


endi 


f 




F4EB A56D 


703 




LDA 


A6C+1 




704 


ifdef BIG 






705 




STA 


BZ60+1 




706 


else 






F4ED 855D 


707 




STA 


PSKPTR+1 




708 


endi 


f 






709 










710 










711 








F4EF A901 


712 




LDA 


#$01 


F4F1 8578 


713 




STA 


PROCNO 


F4F3 20A1E0 


714 
715 
716 
717 




JSR 


CALLX 


F4F6 A000 


718 




LDY 


#0 


F4F8 A552 


719 




LDA 


MSPTR 


F4FA 8550 


720 




STA 


BASPTR 


F4FC 9152 


721 




STA 


(MSPTR), Y 


F4FE A002 


722 




LDY 


#2 


F500 9152 


723 




STA 


(MSPTR), Y 
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F502 A553 


724 




LDA 


MSPTR+1 


F504 8551 


725 




STA 


BASPTR+1 


F506 88 


726 




DEY 




F507 9152 


727 




STA 


(MSPTR),Y 


F509 A003 


728 




LDY 


#3 


F50B 9152 


729 
730 
731 
732 




STA 


(MSPTR),Y 


F50D A00C 


733 




LDY 


#12 


F50F AD17F2 


734 




LDA 


ADRIGR 


F512 9152 


735 




STA 


(MSPTR),Y 


F514 C8 


736 




INY 




F515 AD18F2 


737 




LDA 


ADRIGR+1 


F518 9152 


738 
739 
740 
741 




STA 


(MSPTR),Y 


F51A AD0EBF 


742 




LDA 


ABF0E 


F51D 2904 


743 




AND 


#$04 


F51F F006 


744 
745 
746 
747 




BZ 


INVBD 


F521 A908 


748 




LDA 


#$08 


F523 855B 


749 




STA 


HPPTR+1 


F525 1004 


750 
751 
752 
753 




BNM 


INVBE 


F527 A90C 


754 


INVBD 


LDA 


#$0C 


F529 855B 


755 
756 
757 
758 




STA 


HPPTR+1 


F52B A904 


759 


INVBE 


LDA 


#$04 


F52D 855A 


760 
761 
762 
763 




STA 


HPPTR 




764 


'ifnd 


ef GRIG 




765 




LDX 


#<$0100 




766 




STX 


SPTEMP+1 




767 


else 






F52F A901 


768 




LDA 


#<$0100 


F531 8567 


769 




STA 


SPTEMP+1 




770 


endi 


f 






771 










772 




Clear 


part of ze 




773 










774 


'ifnd 


ef GRIG 




775 




DEX 






776 




TXA 






777 


else 






F533 A200 


778 




LDX 


#0 


F535 A900 


779 




LDA 


#0 




780 


endi 


f 




F537 9596 


781 


INVBF STA 


A96,X 


F539 E8 


782 




INX 




F53A E00D 


783 




CPX 


#13 
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F53C D0F9 



F53E A96C 

F540 8571 

F542 856E 

F544 AD1CF2 

F547 8570 

F549 AD1AF2 

F54C 8573 



F54E A904 
F550 8DE2BD 



version 



784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 



BNE INVBF 
ifdef GRIG 

Initialize JMP instructions in zero page 

LDA #$6C 

STA JMPCSP 

STA JMPPC 

LDA APCT+1 

STA JMPPC+2 

LDA ACSPT+1 

STA JMPCSP+2 
endif 



LDA #$04 
STA ABDE2 
ifndef GRIG 



803 ;.PAGE 'Logic relocated from original version or not in original 



804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 



; Unconditional branch 

BNZ BEGDA 
; Compute total of 256 locations 

CKPAGE LDA #0 

TAX 

TAY 
CKNX CLC 

ADC (AC5),Y 

BNC NGCRY 

INX 
NGCRY INY 

BNZ CKNX 

RTS 



CN05T DB $03, $18, $38, $48 
CN07T DB $3C,$38,$18,$48 



JVECTS DW UDJMPV 

DW DSKNUM 

DW BIGS 

DW BIGSAF 

Zero code just executed 

BEGDA LDX #<A6000 

STX ABD+1 

LDA #>A6000 

STA ABD 

TAY 

CLRLP CPY #>CLRLP 
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842 




BNE 


BEGDD 




843 




CPX 


#<CLRLP 




844 




BE 


BEGDE 




845 


BEGDD STA 


(ABD),Y 




846 




INY 






847 




BNZ 


CLRLP 




848 




INC 


ABD+1 




849 




INX 






850 




BNZ 


CLRLP 




851 


BEGDE 








852 


else 








853 


; .PAGE 'Log 


ic from original version' 




854 










855 










856 








F553 AD21F2 


857 




LDA 


AF221 


F556 F00C 


858 




BZ 


INVBG 


F558 AD1FF2 


859 




LDA 


AF21F 


F55B 8DFCFF 


860 




STA 


AFFFC 


F55E AD20F2 


861 




LDA 


AF21F+1 


F561 8DFDFF 


862 
863 


INVBG 


STA 


AFFFC+1 




864 


endi 


f 






865 










866 










867 








F564 4C53D2 


868 




JMP 


EXECPC 


F567 00000000 


73 




DS 


9 




74 
1 
2 
3 
4 




INCLUDE PADVll.IAS 




'ifnd 


ef lie 




F570 70 


5 
6 


else 


DB 


$70 




7 




DB 


$38 




8 


endi 


f 




F571 25000002 


9 




DB 


$25, $00, $00, $02, $00, $01, $01 


F578 A008 


10 




LDY 


#$08 


F57A 203CFF 


11 




JSR 


JUDDRV 


F57D 18 


12 




CLC 




F57E 9003 


13 




BNC 


INVBH 


F580 2012FF 


14 




JSR 


J DREAD 


F583 A24E 


15 


INVBH 


LDX 


#78 


F585 18 


16 




CLC 




F586 A580 


17 




LDA 


A80 


F588 6906 


18 




ADC 


#6 


F58A 8580 


19 




STA 


A80 


F58C 900D 


20 




BNC 


INVBJ 


F58E E681 


21 




INC 


A80+1 


F590 18 


22 


INVBI 


CLC 




F591 A580 


23 




LDA 


A80 


F593 691A 


24 




ADC 


#26 


F595 8580 


25 




STA 


A80 


F597 9002 


26 




BNC 


INVBJ 


F599 E681 


27 




INC 


A80+1 


F59B CA 


28 


INVBJ 


DEX 




F59C D053 


29 




BNZ 


INVBP 


F59E A900 


30 




LDA 


#0 
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F5A0 8597 


31 


STA 


A97 


F5A2 8598 


32 


STA 


A98 


F5A4 ADABEE 


33 


LDA 


INULL+1 


F5A7 48 


34 


PHA 




F5A8 ADAAEE 


35 


LDA 


INULL 


F5AB 48 


36 


PHA 




F5AC AD18F2 


37 


LDA 


ADRIOR+1 


F5AF 48 


38 


PHA 




F5B0 AD17F2 


39 


LDA 


ADRIOR 


F5B3 48 


40 


PHA 




F5B4 2006FF 


41 


JSR 


JCINIT 


F5B7 A000 


42 


LDY 


#0 


F5B9 8C22F2 


43 


STY 


AF222 


F5BC B931F2 


44 


INVBL LDA 


INUPQ.Y 


F5BF C923 


45 


CMP 


#$23 


F5C1 D022 


46 


BNE 


INVBO 


F5C3 AD21F2 


47 


LDA 


AF221 


F5C6 D0FE 


48 


INVBM BNZ 


INVBM 


F5C8 ADFCFF 


49 


LDA 


AFFFC 


F5CB 8D1FF2 


50 


STA 


AF21F 


F5CE ADFDFF 


51 


LDA 


AFFFC+1 


F5D1 8D20F2 


52 


STA 


AF21F+1 


F5D4 ADF8FF 


53 


LDA 


AFFF8 


F5D7 8DFCFF 


54 


STA 


AFFFC 


F5DA ADF9FF 


55 


LDA 


AFFF8+1 


F5DD 8DFDFF 


56 


STA 


AFFFC+1 


F5E0 EE21F2 


57 


INC 


AF221 


F5E3 D0FE 


58 


INVBN BNZ 


INVBN 


F5E5 2003FF 


59 


INVBO JSR 


JCWRT 


F5E8 EE22F2 


60 


INC 


AF222 


F5EB AC22F2 


61 


LDY 


AF222 


F5EE 18 


62 


CLC 




F5EF 90CB 


63 


BNC 


INVBL 


F5F1 AC23F2 


64 


INVBP LDY 


SYSPK 


F5F4 B180 


65 


INVBQ LDA 


(A80),Y 


F5F6 D923F2 


66 


CMP 


SYSPK, Y 


F5F9 D095 


67 


BNE 


INVBI 


F5FB 88 


68 


DEY 




F5FC 10F6 


69 


BNM 


INVBQ 


F5FE A580 


70 


LDA 


A80 




71 


ifdef lie 






72 


SEC 






73 


SBC 


#$06 




74 


STA 


$80 




75 


BC 


LF5D1 




76 


DEC 


$80+1 




77 


LF5D1 LDY 


#0 




78 


LDA 


($80), Y 




79 


STA 


$7A 




80 


INY 






81 


LDA 


($80), Y 




82 


STA 


$7A+1 




83 


LDA 


#$00 




84 


PHA 






85 


PHA 






86 


PHA 






87 


LDA 


$FEB7 




88 


BZ 


LF5EA 




89 


LDA 


#$04 




90 


BNM 


LF5ED 



Apple ][ Pascal Technical Information 



Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 209 of 292 



Apple ][ Pascal Technical Information 







91 I 


.F5EA LDA 


$FEB6 






92 I 


.F5ED PHA 








93 


LDA 


#$60 






94 


PHA 








95 


LDA 


#$00 






96 


PHA 








97 


LDA 


#$01 






98 


PHA 








99 


LDA 


#$00 






100 


PHA 








101 


LDA 


$7A+1 






102 


PHA 








103 


LDA 


$7A 






104 


PHA 








105 


endif 








106 










107 










108 






F600 


54484953 


109 


ASC 


'THISISIT' 


F608 


0B0001 


110 


DB 


11,0,1 


F60B 


00000000 


111 


DS 


5 


F610 


54484953 


112 


ASC 


'THISISIT' 


F618 


060001 


113 


DB 


6,0,1 


F61B 


00000000 


114 


DS 


5 


F620 


20202020 


115 


ASC 


1 1 


F628 


00000000 


75 


DS 


2136 






76 


INCLUDE lOHI.IAS 






1 
2 
3 
4 

5 I 


.PAGE 'Tables' 


FE80 


4C0000 


JDJMPV 


JMP A00 


FE83 


4C0000 


6 


JMP 


A00 


FE86 


4C0000 


7 


JMP 


A00 


FE89 


4C0000 


8 


JMP 


A00 


FE8C 


4C0000 


9 


JMP 


A00 


FE8F 


4C0000 


10 


JMP 


A00 


FE92 


4C0000 


11 


JMP 


A00 


FE95 


4C0000 


12 


JMP 


A00 


FE98 


4C0000 


13 


JMP 


A00 


FE9B 


4C0000 


14 


JMP 


A00 


FE9E 


4C0000 


15 


JMP 


A00 


FEAl 


4C0000 


16 


JMP 


A00 


FEA4 


4C0000 


17 


JMP 


A00 


FEA7 


4C0000 


18 


JMP 


A00 


FEAA 


4C0000 


19 


JMP 


A00 


FEAD 


4C0000 


20 
21 
22 
23 


JMP 


A00 


FEB0 


FFFF 


24 [ 


DSKNUM 


DW -1 


FEB2 


FFFF 


25 


DW 


-1 


FEB4 


FFFF 


26 


DW 


-1 


FEB6 


0000 


27 


DW 





FEB8 


0100 


28 


DW 


1 


FEBA 


FFFF 


29 


DW 


-1 


FEBC 


FFFF 


30 


DW 


-1 


FEBE 


FFFF 


31 


DW 


-1 


FEC0 


0400 


32 


DW 


4 



; CONSOLE 
SYSTERM 
not used 
Slot 6, drive 
Slot 6, drive 
PRINTER 
RENIN 
REMOUT 
Slot 4, drive 
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FEC2 0500 


33 


DW 


5 ; Slot 4, drive 2 


FEC4 0200 


34 


DW 


2 ; Slot 5, drive 1 


FEC6 0300 


35 


DW 


3 ; Slot 5, drive 2 




36 


ifndef GRIG 




37 


DW 


-1 




38 


DW 


-1 




39 


DW 


-1 




40 


DW 


-1 




41 


DW 


-1 




42 


DW 


-1 




43 


DW 


-1 




44 


DW 


-1 




45 


endif 






46 


.PAGE 'Go 


to appropriate user defined driver' 




47 








48 








49 






FEC8 85D2 


50 I 


JRWIS STA 


AD 2 




51 


ifndef GRIG 




52 


ASL 


A 




53 


ASL 


A 




54 


SBB 


AD 2 




55 


TAY 






56 


LDA 


#<DSKNUM 




57 


PHA 






58 


TYA 






59 


JMP 


CGMN 




60 


else 




FECA 297F 


61 


AND 


#$7F 


FECC 85D3 


62 


STA 


AD3 


FECE 0A 


63 


ASL 


A 


FECF 18 


64 


CLC 




FED0 65D3 


65 


ADC 


AD 3 


FED2 6D96D6 


66 


ADC 


JVECTS 


FEDS 85D3 


67 


STA 


AD 3 


FED7 A900 


68 


LDA 


#0 


FED9 6D97D6 


69 


ADC 


JVECTS+1 


FEDC 85D4 


70 


STA 


AD3+1 


FEDE A5D2 


71 


LDA 


AD 2 


FEE0 6CD300 


72 


JMP 


(AD3) 




73 


endif 






74 


.PAGE 'Gdds and ends' 




75 


ifdef GRIG 




76 








77 


Read 


and write RAM; use bank #1 




78 






FEE3 AD8BC0 


79 1 
80 
81 
82 


rGBRK LDA 


LCBNKl 


FEE6 6C16BF 


83 
84 


JMP 


(BREAK) 


*S(CS|CS|CS(CS(CS|C!|CS|CS(CS|CS|CS(CS|CS|C!|CS|CS(CS|CS|CS(CS(CS|C!|CS(CS(CS|CS|CS(CS|CS|C!|CS|CS(CS|CS|CS(CS(CS|C!|CS|CS(CS|CS|CS|CS|CS|C!|CS|CS(CS|CSK 




85 








86 


Read 


and write RAM; use bank #2 




87 






FEE9 AD83C0 


88 r 
89 


\IGTGST 


LDA LCBNK2 
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90 ; 

91 ; 

FEEC 4C9ED6 92 JMP CLRMEM 
93 endif 
94 

95 ; 

96 ; Read and write RAM; use bank #1 

97 ; 

FEEF AD8BC0 98 AFEEF LDA LCBNKl 

99 ; 

100 ; 

101 ; 

FEF2 6C2FBF 102 JMP (XITLOC) 
103 

104 ; 

105 ; Read and write RAM; use bank #1 

106 ; 

FEF5 AD8BC0 107 GST LDA LCBNKl 

108 ; 

109 ; Go to a jump to 'MINITC (Move INITialization Code) 

110 ; 

FEF8 4C52D1 111 JMP JMOVIC ; INIT0 

112 ifndef GRIG 
113 

114 ; 

115 ; Read and write RAM; use bank #1 

116 ; 

117 TGBRK LDA LCBNKl 

118 ; 

119 ; 

120 ; 

121 JMP (BREAK) 

122 ; 

123 ; 

124 ; 

125 DS 8 

126 else 
127 

128 

129 

130 
FEFB A980 131 DGH12 LDA #$80 
FEED 85E0 132 STA AE0 

133 

134 

135 
FEFF 60 136 RTS 

137 endif 



138 ;.PAGE 'Main BIGS jump table' 

139 

140 

141 

142 BIGS 
FF00 209EFF 143 JCREAD JSR SAVRET 
FF03 209EFF 144 JCWRT JSR SAVRET 



; Console read 
; Console write 
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FF06 209EFF 


145 


JCINIT 


JSR SAVRET 


Console init 


FF09 209EFF 


146 


JPRTW 


JSR SAVRET 


Printer write 


FF0C 209EFF 


147 


JPRTI 


JSR SAVRET 


Printer init 


FF0F 209EFF 


148 


JDWRT 


JSR SAVRET 


Disk write 


FF12 209EFF 


149 


JDREAD 


JSR SAVRET 


Disk read 


FF15 209EFF 


150 


JDINIT 


JSR SAVRET 


Disk init 


FF18 209EFF 


151 


JREMR 


JSR SAVRET 


Remote read 


FFIB 209EFF 


152 


JREMW 


JSR SAVRET 


Remote write 


FFIE 209EFF 


153 


JREMI JSR 


SAVRET 


Remote init 


FF21 209EFF 


154 


JGRAFW 


JSR SAVRET ; Graphic write 


FF24 209EFF 


155 


JGRAFI 


JSR SAVRET ; Graphic init 


FF27 209EFF 


156 


JSR 


SAVRET 


Printer read 


FF2A 209EFF 


157 


JCONS JSR 


SAVRET 


Console status 


FF2D 209EFF 


158 


JPRTS JSR 


SAVRET 


Printer status 


FF30 209EFF 


159 


JDSKS JSR 


SAVRET 


Disk status 


FF33 209EFF 


160 


JREMS JSR 


SAVRET 


Remote status 


FF36 209EFF 


161 


AFF36 JSR 


SAVRET 


To get to CGNCK from CGNCKVEC 


FF39 209EFF 


162 


JUSER JSR 


SAVRET 


User read, write, init, status 


FF3C 209EFF 


163 


JUDDRV 


JSR SAVRET ; Substitute disk driver 




164 


ifdef GRIG 








165 


AFF3F 






FF3F 209EFF 


166 
167 


JTREE JSR 
endif 


SAVRET 


ID search 




168 


; .PAGE 'Go 


to address of substitute disk driver' 




169 


/ 








170 


; Save 


'A' register 




171 


t 






FF42 85D2 


172 


PSUBDR 


STA AD 2 




173 


t 








174 


; Push 


address f 


rom table onto stack 




175 


t 






FF44 B9AFFE 


176 


LDA 


DSKNUM- 


1,Y 


FF47 48 


177 


PHA 






FF48 B9AEFE 


178 


LDA 


DSKNUM- 


2,Y 


FF4B 48 


179 
180 


COMN PHA 

t 








181 


; Restore 'A' register 




182 


/ 






FF4C A5D2 


183 
184 


LDA 


AD2 






185 


; Go to 


address 


pushed onto stack 




186 


/ 






FF4E 60 


187 


RTS 








188 


; .PAGE 'Odd 


s and ends' 




189 


ifndef GRIG 






190 


/ 








191 


/ 








192 


/ 








193 


DS 


6 






194 


/ 








195 


/ 








196 


t 








197 


NFF52 DW 


DGFF 






198 


DW 


INVERT 






199 


DW 


INTAG 






200 


else 








201 


t 








202 


t 
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203 






FF4F A980 


204 D0H14 LDA 


#$80 


FF51 85E1 


205 


STA 


AEl 


FF53 0A 


206 


ASL 


A 


FF54 85E0 


207 


STA 


AE0 


FF56 60 


208 
209 
210 

211 


RTS 




FF57 00 


212 


DS 


1 




213 


endif 






214 








215 








216 






FF58 60 


217 ] 


[NWAE RTS 






218 


.PAGE 'Offset jump table 




219 








220 








221 






FF59 4C72D7 


222 JCONCK 


JMP CONCK 




223 








224 


Consol 


e support 




225 






FF5C 4CC6D8 


226 BIOSAF 


JMP CREAD 


FF5F 4C50D9 


227 


JMP 


CWRITE 


FF62 4C98D8 


228 
229 


JMP 


CINIT 




230 


Printer support 




231 






FF65 4CC3D9 


232 


JMP 


PWRITE 


FF68 4CEFD8 


233 
234 


JMP 


PINIT 




235 


Disk support 




236 






FF6B 4C28D0 


237 


JMP 


DWRITE 


FF6E 4C2CD0 


238 


JMP 


DREAD 


FF71 4C83D6 


239 
240 


JMP 


DINIT 




241 


Remote 


support 




242 






FF74 4CE5D9 


243 


JMP 


RREAD 


FF77 4C9CD9 


244 


JMP 


RWRITE 


FF7A 4C1CD9 


245 
246 
247 
248 


JMP 


RINIT 


FF7D 4C58FF 


249 


JMP 


I NWAE 


FF80 4C18D9 


250 
251 
252 
253 


JMP 


GINIT 


FF83 4C58FF 


254 
255 
256 
257 


JMP 


I NWAE 


FF86 4CB0DC 


258 


JMP 


STATC 


FF89 4CA0DC 


259 


JMP 


STATPR 


FF8C 4CC5DC 


260 


JMP 


STATD 




261 


ifdef GRIG 
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FF8F 4CA0DC 



FF92 4C72D7 
FF95 4CC8FE 
FF98 4C42FF 



FF9B 4CE4DC 



FF9E 85D2 



FFA0 68 

FFAl 18 

FFA2 695A 

FFA4 85D3 

FFA6 68 

FFA7 6900 

FFA9 85D4 



FFAB 68 

FFAC 8D1ABF 

FFAF 68 

FFB0 8D1BBF 



FFB3 AD83C0 



FFB6 A5D2 



FFB8 20CBFF 



FFBB 85D2 



FFBD ADIBBF 



262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 

279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 



JMP 



else 



JMP 



STATPR 
STATR 



endif 



JMP 

JMP 

JMP 
ifdef GRIG 
ifndef lie 

JMP 
else 

JMP 
endif 
endif 



CONCK 
URWIS 
PSUBDR 



ADCE4 
INWAE 



;.PAGE 'Switch between main logic and I/O logic' 



SAVRET 



STA 



AD 2 



PLA 




CLC 




ADC 


#JC0NCK-BI0S+1 


STA 


AD3 


PLA 




ADC 


#0 


STA 


AD 3+1 


PLA 




STA 


ABFIA 


PLA 




STA 


ABFlA+1 



Read and write RAM; use bank #2 
LDA LCBNK2 



LDA 



AD 2 



JSR INWBC 



AFFBB STA AD2 



LDA ABFlA+1 
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FFCO 48 


321 


PHA 




FFCl ADIABF 


322 


LDA 


ABFIA 


FFC4 48 


323 
324 


PHA 






325 


; Read a 


nd write RAM; use bank #1 




326 


/ 




FFC5 AD8BC0 


327 
328 
329 
330 


LDA 

t 
t 
t 


LCBNKl 


FFC8 A5D2 


331 
332 
333 
334 


LDA 

/ 
/ 


AD 2 


FFCA 60 


335 
336 
337 
338 


RTS 

/ 
t 




FFCB 6CD300 


339 


INWBC JMP 


(AD3) 




340 


;.PAGE 'More odds and ends' 




341 


ifdef GRIG 






342 


/ 






343 


/ 






344 


t 




FFCE 5D5E40 


345 


XLTIN ASC 


■]-@' 


FFDl 1D1E00 


346 
347 
348 
349 


DB 


$1D,$1E,$00 


FFD4 4D4E505D 


350 


XLTOUT 


ASC 'MNP]'^^' 




351 


endif 






352 


ifndef lie 






353 








354 








355 






FFDA ADllBF 


356 


HTAB LDA 


NBFll 


FFDD C914 


357 


CMP 


#20 


FFDF B004 


358 
359 
360 
361 


BGE 


TAB3 


FFEl A928 


362 


AFFEl LDA 


#40 


FFE3 D002 


363 


BNZ 


INWBE 


FFE5 A900 


364 


TAB3 LDA 


#$00 


FFE7 38 


365 


INWBE CLB 




FFE8 EDllBF 


366 


SBB 


NBFll 


FFEB 4CFEDB 


367 


JMP 


INTNR 




368 


else 






369 


DB 


0,0,0,0,0,0,0 




370 


DB 


0,0,0,0,0,0,0,0,0,0,0,0,0 




371 


endif 






372 


ifndef ORIG 




373 


/ 






374 


/ 






375 


/ 






376 


DS 


5 




377 


/ 






378 


t 






379 


t 
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380 


NFFE2 DW 


GENIT 




381 








382 








383 








384 


XLTIN DB 


$0B,$0C,$0F 




385 


ASC 


■]-@' 




386 


DB 


$1D,$1E,$00 




387 








388 








389 








390 


XLTOUT 


ASC ' [ ' 




391 


DB 


$0A,$0B 




392 


ASC 


'MNP]'^^' 




393 








394 








395 








396 


DW 


4 




397 


else 






398 








399 








400 






FFEE 00000000 


401 


DS 


10 




402 


endif 






403 








404 








405 








406 


AFFF8 






407 


ifndef ORIG 




408 


DW 


GST 




409 


else 




FFF8 E9FE 


410 


DW 


NOTOST 




411 


endif 




FFFA EFFE 


412 


DW 


AFEEF 


FFFC EFFE 


413 


AFFFC DW 


AFEEF 


FFFE EFFE 


414 
77 
78 
79 


DW 


AFEEF 




80 


ORG 


$D000 




81 


INCLUDE VllIOPl.IAS 




1 


/ 






2 


/ 






3 


/ 




D000 00 


4 
5 


SVFLGS 


DB 




6 


; Save 


CPU flags 




7 


t 






8 


*INTAD 




D001 08 


9 
10 


CCONCK 

t 


PHP 




11 


; Save 


'A' register 




12 


t 




D002 48 


13 
14 


PHA 

t 






15 


; Set 


CPU flags from 'SVFLGS' 




16 


/ 




D003 AD00D0 


17 


LDA 


SVFLGS 


D006 48 


18 


PHA 




D007 28 


19 
20 


PLP 

t 





Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 217 of 292 





21 








22 






D008 EA 


23 
24 


NOP 






25 


Inhibit interrupts 




26 






D009 78 


27 
28 
29 
30 


SEI 




D00A 2072D7 


31 
32 


JSR 


CONCK 




33 


Restore 'A' register 




34 






D00D 68 


35 
36 


PLA 






37 


Restore CPU flags 




38 






D00E 28 


39 
40 


PLP 






41 


Return 


to caller 




42 






D00F 60 


43 
44 


RTS 




*>|CS|CS|C>|C>|CS|CS|C>|C>|CS|C!|C>|<>|<!|<!|<!|<!|<!|<!|<!|<!|<S|(S|(!|<S|CS|C!|C>|<>|CS|CS|C>|C>|CS|C!|C>|C>|<S|CS|C=|<>|CS|C!|C>|<>|<>t; 




45 








46 








47 






D010 ADEAC0 


48 INTAG LDA 


AC08A+$60 




49 








50 








51 








52 






D013 A000 


53 


LDY 


#0 


D015 8CA303 


54 


STY 


A03A3 


D018 8C7E04 


55 


STY 


A0478+6 


D01B 8CFE04 


56 
57 
58 
59 


STY 


A04F8+6 


D01E C8 


60 


INY 




D01F 8CB003 


61 
62 
63 
64 


STY 


PRVDRV 


D022 A960 


65 


LDA 


#$60 


D024 8DAF03 


66 
67 


STA 


PRVSLT 




68 


Return 


to caller 




69 






D027 60 


70 


RTS 






71 


.PAGE 'Disk I/O' 




72 








73 








74 






D028 A002 


75 [ 


)WRITE 


LDY #2 


D02A D002 


76 


BNZ 


INTAH 


D02C A001 


77 [ 


)READ LDY 


#1 


D02E 8CAC03 


78 ] 


[NTAH STY 


RDWRFL 
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79 








80 


Save 


return add 




81 






D031 68 


82 


PLA 




D032 85C0 


83 


STA 


RETADR 


D034 68 


84 


PLA 




D035 85C1 


85 
86 
87 
88 


STA 


RETADR+1 


D037 68 


89 


PLA 




D038 85BE 


90 


STA 


ABD+1 


D03A 0A 


91 


ASL 


A 


D03B 290F 


92 


AND 


#$0F 


D03D 85BD 


93 


STA 


ABD 


D03F 68 


94 


PLA 




D040 4A 


95 


LSR 


A 


D041 85C2 


96 


STA 


AC 2 


D043 A5BE 


97 


LDA 


ABD+1 


D045 6A 


98 


ROR 


A 


D046 4A 


99 


LSR 


A 


D047 4A 


100 


LSR 


A 


D048 8DA403 


101 
102 
103 
104 


STA 


A03A4 


D04B 68 


105 


PLA 




D04C 85BE 


106 


STA 


ABD+1 


D04E C901 


107 


CMP 


#$01 


D050 68 


108 


PLA 




D051 6900 


109 


ADC 


#0 


D053 88 


110 


DEY 




D054 F003 


111 


BZ 


INTAI 


D056 88 


112 


DEY 




D057 84BE 


113 


STY 


ABD+1 


D059 85BF 


114 ] 
115 
116 
117 


[NTAI STA 


ABF 


D05B 68 


118 


PLA 




D05C 8DA803 


119 


STA 


XFRADR 


D05F 85C4 


120 


STA 


AC4 


D061 68 


121 


PLA 




D062 8DA903 


122 
123 


STA 


XFRADR+1 




124 


Convert drive c 




125 






D065 68 


126 


PLA 




D066 4A 


127 


LSR 


A 


D067 A8 


128 


TAY 




D068 A901 


129 


LDA 


#1 


D06A 6900 


130 


ADC 


#0 


D06C 8DA203 


131 


STA 


DRVNO 


D06F B980D6 


132 


LDA 


SLTTBL.Y 


D072 8DA103 


133 
134 
135 
136 


STA 


SLOTNO 


D075 68 


137 


PLA 




D076 AA 


138 


TAX 
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D077 68 


139 


PLA 




D078 68 


140 


PLA 




D079 8A 


141 


TXA 




D07A A208 


142 


LDX 


#$08 


D07C 05C2 


143 


ORA 


AC 2 


D07E D061 


144 
145 
146 
147 


BNZ 


INTAP 


D080 98 


148 


TYA 




D081 2084D6 


149 


JSR 


INTGN 


D084 D05B 


150 
151 
152 
153 


BNZ 


INTAP 


D086 A5BF 


154 


LDA 


ABF 


D088 F055 


155 
156 


BZ 


INTAN 




157 


Clear 


$D0. .$DF 




158 






D08A A00F 


159 ] 


[NTAJ LDY 


#15 


D08C A900 


160 


LDA 


#0 


D08E 99D000 


161 ] 


[NTAK STA 


AD0,Y 


D091 88 


162 


DEY 




D092 10FA 


163 
164 
165 
166 


BNM 


INTAK 


D094 A910 


167 


LDA 


#$10 


D096 38 


168 


CLB 




D097 E5BD 


169 


SBB 


ABD 


D099 C5BF 


170 


CMP 


ABF 


D09B 9002 


171 


BL 


INTAL 


D09D A5BF 


172 


LDA 


ABF 


D09F 85C6 


173 ] 


[NTAL STA 


AC5+1 


D0A1 85C3 


174 
175 
176 
177 


STA 


AC 3 


D0A3 08 


178 


PHP 




D0A4 68 


179 


PLA 




D0A5 2904 


180 


AND 


#$04 


D0A7 8D00D0 


181 
182 
183 
184 


STA 


SVFLGS 


D0AA 78 


185 
186 
187 
188 


SEI 




D0AB 20E8D0 


189 
190 
191 
192 


JSR 


INTAS 


D0AE 08 


193 


PHP 




D0AF 68 


194 


PLA 




D0B0 0D00D0 


195 


ORA 


SVFLGS 


D0B3 48 


196 


PHA 




D0B4 28 


197 
198 


PLP 
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199 










200 








D0B5 AEAD03 


201 


LDX 


A03AD 




DOBS B027 


202 
203 
204 
205 


BC 


INTAP 




D0BA A900 


206 


LDA 


#0 




D0BC 85BD 


207 
208 
209 
210 


STA 


ABD 




D0BE EEA403 


211 
212 
213 
214 


INC 


A03A4 




D0C1 ADA903 


215 


LDA 


XFRADR+1 




D0C4 65C6 


216 


ADC 


AC5+1 




D0C6 8DA903 


217 
218 
219 
220 


STA 


XFRADR+1 




D0C9 A5BF 


221 


LDA 


ABF 




D0CB 38 


222 


CLB 






D0CC E5C6 


223 


SBB 


AC5+1 




D0CE 85BF 


224 
225 
226 
227 


STA 


ABF 




D0D0 D0B8 


228 
229 
230 
231 


BNZ 


INTAJ 




D0D2 A4BE 


232 


LDY 


ABD+1 




D0D4 F009 


233 
234 
235 
236 


BZ 


I NTAN 




D0D6 88 


237 ] 
238 
239 
240 


:ntam DEY 






D0D7 B90002 


241 


LDA 


A0200,Y 




D0DA 91C4 


242 
243 
244 
245 


STA 


(AC4),Y 




D0DC 98 


246 


TYA 






D0DD D0F7 


247 
248 
249 
250 


BNZ 


INTAM 




D0DF A200 


251 ] 
252 


[NTAN LDX 


#0 






253 


Push 


saved return address on stack 




254 








D0E1 A5C1 


255 ] 


[NTAP LDA 


RETADR+1 




D0E3 48 


256 


PHA 






D0E4 A5C0 


257 


LDA 


RETADR 




D0E6 48 


258 


PHA 
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259 










260 




Return 


to caller 




261 








D0E7 60 


262 




RTS 






82 




INCLUDE DISKII.IAS 




1 


;.PAGE '???' 






2 










3 










4 








DOES A002 


5 


INTAS 


LDY 


#$02 


D0EA 8CFFDF 


6 
7 
8 
9 




STY 


ADFFF 


D0ED A00A 


10 




LDY 


#$0A 


D0EF 8CFDDF 


11 
12 




STY 


ADFFD 




13 




Branch 


if slot number he 




14 








D0F2 AEA103 


15 




LDX 


SLOTNO 


D0F5 ECAF03 


16 




CPX 


PRVSLT 


D0F8 F011 


17 
18 
19 
20 




BE 


INTAU 


D0FA AEAF03 


21 




LDX 


PRVSLT 




22 


ifnd 


ef ORIC 






23 




BZ 


INTAZ 




24 


endi 


f 






25 


/ 








26 


t 








27 


t 






D0FD 2001D0 


28 


INTAT JSR 


CCONCK ; INTAD 




29 


/ 








30 


/ 








31 


t 






D100 2082D3 


32 




JSR 


INTDV 


D103 D0F8 


33 
34 
35 
36 




BNZ 


INTAT 




37 


'ifnd 


ef ORIC 






38 


INTAZ 








39 


endi 


f 




D105 AEA103 


40 




LDX 


SLOTNO 


D108 8EAF03 


41 
42 
43 
44 




STX 


PRVSLT 


D10B 2082D3 


45 


INTAU JSR 


INTDV 


D10E 08 


46 
47 


/ 


PHP 






48 


t 


Turn d 


rive on 




49 


t 






D10F BD89C0 


50 
51 
52 
53 


t 
t 
t 


LDA 


DRVON.X 


D112 ADA203 


54 




LDA 


DRVNO 
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D115 CDB003 


55 


CMP 


PRVDRV 


D118 F007 


56 
57 
58 
59 


BE 


INTAV 


DllA 8DB003 


60 
61 
62 
63 


STA 


PRVDRV 


DllD 28 


64 


PLP 




DUE A000 


65 


LDY 


#$00 


D120 08 


66 
67 
68 
69 


PHP 




D121 2901 


70 ] 


[NTAV AND 


#$01 


D123 4901 


71 


EOR 


#$01 


D125 0DA103 


72 


ORA 


SLOTNO 


D128 A8 


73 


TAY 




D129 D98AC0 


74 


CMP 


DRVSL1,Y 


D12C 4A 


75 


LSR 


A 


D12D 08 


76 


PHP 




D12E 4A 


77 


LSR 


A 


D12F 4A 


78 


LSR 


A 


D130 28 


79 


PLP 




D131 6A 


80 


ROR 


A 


D132 85C7 


81 
82 
83 
84 


STA 


AC 7 


D134 A9EF 


85 


LDA 


#>$D8EF 


D136 8546 


86 


STA 


A46 


D138 A9D8 


87 


LDA 


#<$D8EF 


D13A 8547 


88 
89 
90 
91 


STA 


A46+1 


D13C 28 


92 


PLP 




D13D 08 


93 


PHP 




D13E D00B 


94 
95 
96 
97 


BNZ 


INTAX 


D140 A008 


98 


LDY 


#8 




99 ] 


[NTAW 






100 


ifdef GRIG 




D142 2037D6 


101 


JSR 


DELAY 




102 


else 






103 


JSR 


DLAYCC 




104 


endif 




D145 88 


105 


DEY 




D146 D0FA 


106 
107 
108 
109 


BNZ 


I NTAW 


D148 AEA103 


110 
111 
112 
113 


LDX 


SLOTNO 


D14B ADA403 


114 ] 


[NTAX LDA 


A03A4 
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D14E 


206BD2 


115 
116 
117 
118 




JSR 


INTCH 


D151 


28 


119 




PLP 




D152 


D020 


120 
121 




BNZ 


INTBC 






122 




Brand' 


if reading 






123 








D154 


ADAC03 


124 




LDA 


RDWRFL 


D157 


C902 


125 




CMP 


#2 


D159 


D010 


126 
127 
128 
129 


t 


BNE 


INTBB 


D15B 


A012 


130 
131 
132 
133 


INTAY 

/ 
t 
t 


LDY 


#18 


D15D 


88 


134 


INTBA DEY 




D15E 


D0FD 


135 
136 
137 
138 




BNZ 


INTBA 


D160 


E646 


139 




INC 


A46 


D162 


D0F7 


140 




BNZ 


INTAY 


D164 


2001D0 


141 




JSR 


CCONCK ; IN 


D167 


E647 


142 




INC 


A46+1 


D169 


D0F0 


143 
144 
145 
146 




BNZ 


INTAY 


D16B 


2082D3 


147 


INTBB JSR 


INTDV 


D16E 


D004 


148 
149 
150 

151 




BNZ 


INTBC 


D170 


A909 


152 




LDA 


#$09 


D172 


D058 


153 
154 
155 
156 




BNZ 


INTBN 


D174 


ADAC03 


157 


INTBC 


LDA 


RDWRFL 


D177 


6A 


158 




ROR 


A 


D178 


08 


159 
160 
161 
162 




PHP 




D179 


A9FF 


163 




LDA 


#$FF 


D17B 


8DA503 


164 
165 
166 
167 




STA 


A03A5 


D17E 


A080 


168 


INTBE 


LDY 


#$80 


D180 


8CFEDF 


169 
170 
171 
172 




STY 


ADFFE 


D183 


CEFEDF 


173 


INTBF DEC 


ADFFE 


D186 


3020 


174 




BM 


INTBJ 
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175 








176 








177 






D188 2001D0 


178 
179 


JSR 


CCONCK ; INTAD 




180 


Read 


address field 




181 






D18B AEA103 


182 


LDX 


SLOTNO 


D18E 2024D3 


183 


JSR 


READAF 


D191 B0F0 


184 
185 
186 
187 


BC 


INTBF 


D193 A5CC 


188 


LDA 


ACTTRK 


D195 CDFBDF 


189 


CMP 


CURTRK 


D198 F038 


190 
191 
192 
193 


BE 


INTBO 


D19A A4C7 


194 


LDY 


AC 7 


D19C 0A 


195 


ASL 


A 


D19D 997804 


196 
197 
198 
199 


STA 


A0478,Y 


D1A0 ADFBDF 


200 


LDA 


CURTRK 


D1A3 CEFDDF 


201 


DEC 


ADFFD 


D1A6 D01B 


202 
203 
204 
205 


BNZ 


INTBK 


D1A8 CEFFDF 


206 ] 


[NTBJ DEC 


ADFFF 


DIAB F01C 


207 
208 
209 
210 


BZ 


INTBL 


DIAD ADFBDF 


211 


LDA 


CURTRK 


D1B0 48 


212 
213 
214 
215 


PHA 




DlBl A90A 


216 


LDA 


#$0A 


D1B3 8DFDDF 


217 
218 
219 
220 


STA 


ADFFD 


D1B6 A960 


221 


LDA 


#$60 


D1B8 A4C7 


222 


LDY 


AC 7 


DIBA 997804 


223 
224 
225 
226 


STA 


A0478,Y 


DIBD A900 


227 


LDA 


#$00 


DIBF 206BD2 


228 
229 
230 
231 


JSR 


INTCH 


D1C2 68 


232 
233 
234 


PLA 
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235 


/ 






D1C3 206BD2 


236 


INTBK JSR 


INTCH 




237 


ifdef GRIG 




D1C6 4C7ED1 


238 
239 


else 


JMP 


INTBE 




240 




BNM 


INTBE 




241 


endi 


f 






242 










243 










244 








D1C9 A940 


245 


INTBL 


LDA 


#$40 


DICB 28 


246 
247 
248 
249 


INTBM 

t 


PLP 




Dice 4C59D2 


250 


INTBN JMP 


WRNG 




251 


/ 








252 


t 








253 


t 








254 


ifdef GRIG 




DICF 4C57D2 


255 




JMP 


WRGK 




256 


endi 


f 






257 










258 










259 








D1D2 ADA303 


260 


INTBG 


LDA 


A03A3 


D1D5 48 


261 
262 
263 
264 




PHA 




D1D6 A5CD 


265 




LDA 


ACTVGL 


D1D8 8DAE03 


266 
267 
268 
269 




STA 


A03AE 


DIDB 68 


270 




PLA 




DIDC F008 


271 
272 
273 
274 




BZ 


INTBP 


DIDE C5CD 


275 




CMP 


ACTVGL 


D1E0 F004 


276 
277 
278 
279 




BE 


INTBP 


D1E2 A920 


280 




LDA 


#$20 


D1E4 D0E5 


281 
282 
283 
284 




BNZ 


INTBM 


D1E6 28 


285 


INTBP 


PLP 




D1E7 08 


286 




PHP 




D1E8 B013 


287 
288 
289 
290 




BC 


INTBR 


DIEA A5CB 


291 




LDA 


ACTSEC 


DIEC CDA503 


292 




CMP 


A03A5 


DIEF F070 


293 
294 


t 


BE 


WRSEC 
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295 








296 






DlFl 18 


297 


CLC 




D1F2 6901 


298 


ADC 


#$01 


D1F4 290F 


299 


AND 


#$0F 


D1F6 CDA503 


300 


CMP 


A03A5 


D1F9 F088 


301 
302 
303 
304 


BE 


INTBF 


DIFB 85CB 


305 
306 
307 
308 


STA 


ACTSEC 


DIFD A4CB 


309 ] 


[NTBR LDY 


ACTS EC 


DIFF B9D000 


310 


LDA 


AD0,Y 


D202 F003 


311 
312 
313 
314 


BZ 


INTBS 


D204 4C83D1 


315 
316 
317 
318 


JMP 


INTBF 


D207 98 


319 ] 


[NTBS TYA 




D208 4A 


320 


LSR 


A 


D209 9002 


321 
322 
323 
324 


BNC 


INTBT 


D20B 0908 


325 
326 
327 
328 


ORA 


#$08 


D20D 38 


329 ] 


[NTBT CLB 




D20E E5BD 


330 


SBB 


ABD 


D210 902E 


331 
332 
333 
334 


BB 


INTBX 


D212 A8 


335 


TAY 




D213 18 


336 


CLC 




D214 6DA903 


337 


ADC 


XFRADR+1 


D217 C8 


338 


INY 




D218 C4BF 


339 


CPY 


ABF 


D21A 900E 


340 


BL 


INTBU 


D21C D022 


341 


BNE 


INTBX 


D21E A4BE 


342 


LDY 


ABD+1 


D220 F008 


343 


BZ 


INTBU 


D222 85C5 


344 
345 
346 
347 


STA 


AC 5 


D224 A000 


348 


LDY 


#$00 


D226 A902 


349 


LDA 


#$02 


D228 B003 


350 


BC 


I NTBW 


D22A ACA803 


351 ] 


[NTBU LDY 


XFRADR 


D22D 843E 


352 ] 


[NTBW STY 


A3E 


D22F 853F 


353 


STA 


A3E+1 


D231 28 


354 


PLP 
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D232 08 


355 




PHP 




D233 B00E 


356 




BC 


INTCB 


D235 2058D6 


357 




JSR 


INTGI 


D238 AEA103 


358 




LDX 


SLOTNO 


D23B A5CB 


359 




LDA 


ACTSEC 


D23D 8DA503 


360 




STA 


A03A5 


D240 4C83D1 


361 


INTBX JMP 


INTBF 




362 










363 










364 








D243 2002D5 


365 


INTCB JSR 


READDF 


D246 B0F8 


366 
367 
368 
369 




BC 


INTBX 


D248 A4CB 


370 


INTCC 


LDY 


ACTSEC 


D24A A9FF 


371 




LDA 


#$FF 


D24C 99D000 


372 




STA 


AD0,Y 


D24F 8DA503 


373 
374 
375 
376 




STA 


A03A5 


D252 C6C3 


377 




DEC 


AC3 


D254 D0EA 


378 
379 


/ 


BNZ 


INTBX 




380 


/ 


Fix 


Stack pointer 




381 


t 






D256 28 


382 
383 
384 
385 


t 
t 
t 


PLP 




D257 18 


386 


WROK 


CLC 




D258 24 


387 




DB 


$24 


D259 38 


388 


WRNG 


SEC 




D25A 8DAD03 


389 
390 


/ 


STA 


A03AD 




391 


t 


Turn 


off motor 




392 


t 






D25D BD88C0 


393 
394 


t 


LDA 


DRVOFF.X 




395 


t 


Retu 


rn to caller 




396 


t 






D260 60 


397 
398 


t 


RTS 






399 


t 


Write data field 




400 


t 






D261 208CD2 


401 


WRSEC JSR 


WRDF 




402 


/ 








403 


t 


Branch if good write 




404 


t 






D264 90E2 


405 
406 


t 


BNC 


INTCC 




407 


t 


Fix 


stack pointer 




408 


t 






D266 68 


409 
410 


t 


PLA 






411 


t 


Indicate write protect error 




412 


t 






D267 A910 


413 
414 


t 


LDA 


#$10 
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D285 20DAD5 



D288 4EFBDF 



D28B 60 



D28C 38 



D28D 86CE 
D28F 8EFADF 



D292 BD8DC0 
D295 BD8EC0 
D298 307C 







415 


Unconditional branch 






416 






D269 


B0EE 


417 
418 


BC 


WRNG 


*S|(S|(S|(S|(S|(S|(S|(!|<S|(S|(S|(S|(S|(!|(S|(S|<S|<S|(S|(S|(S|(S|(S|(S|<S|(S|(S|(S|(S|<S|(S|(S|<S|(S|(S|(S|(S|(!|(S|(S|<S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|(S|(* 






419 










420 










421 






D26B 


0A 


422 ] 


[NTCH ASL 


A 


D26C 


48 


423 
424 
425 
426 


PHA 




D26D 


BD80C0 


427 


LDA 


DRVSM0,X 


D270 


BD82C0 


428 


LDA 


DRVSM2,X 


D273 


BD84C0 


429 


LDA 


DRVSM4,X 


D276 


BD86C0 


430 
431 
432 
433 


LDA 


DRVSM6,X 


D279 


A4C7 


434 


LDY 


AC 7 


D27B 


B97804 


435 


LDA 


A0478,Y 


D27E 


8DFBDF 


436 
437 
438 
439 


STA 


CURTRK 


D281 


68 


440 


PLA 




D282 


997804 


441 


STA 


A0478,Y 



442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 



JSR 



SEEK 



LSR CURTRK 
Return to caller 
RTS 



454 ;.PAGE 'Write data field' 

455 ; 

456 ; 

457 ; 

458 WRDF SEC 

459 ; 

460 ; 

461 ; 

462 STX HSLOTl 

463 STX HSL0T2 
464 
465 
466 

467 LDA DRVWR.X 

468 LDA DRVRDM.X 

469 BM WRDAD 
470 
471 
472 
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D29A AD0003 


473 


LDA 


BUFF2B 




D29D 85CF 


474 
475 
476 
477 


STA 


ACF 




D29F A9FF 


478 


LDA 


#$FF 




D2A1 9D8FC0 


479 
480 
481 
482 


STA 


DRVWRM,X 




D2A4 1D8CC0 


483 


ORA 


DRVRD.X 




D2A7 48 


484 


PHA 






D2A8 68 


485 


PLA 






D2A9 EA 


486 
487 


NOP 








488 


Write 


4 autosync bytes 






489 








D2AA A004 


490 


LDY 


#4 




D2AC 48 


491 / 


\UTOLP 


PHA 




D2AD 68 


492 


PLA 






D2AE 201BD3 


493 


JSR 


WRCHE2 




D2B1 88 


494 


DEY 






D2B2 D0F8 


495 
496 


BNZ 


AUTO LP 






497 


Write 


1st data field prologue 


byte 




498 








D2B4 A9D5 


499 


LDA 


#$D5 




D2B6 201AD3 


500 
501 


JSR 


WRCHEl 






502 


Write 


2nd data field prologue 


byte 




503 








D2B9 A9AA 


504 


LDA 


#$AA 




D2BB 201AD3 


505 
506 


JSR 


WRCHEl 






507 


Write 


3rd data field prologue 


byte 




508 








D2BE A9AD 


509 


LDA 


#$AD 




D2C0 201AD3 


510 
511 
512 
513 


JSR 


WRCHEl 




D2C3 98 


514 
515 
516 
517 


TYA 






D2C4 A056 


518 


LDY 


#86 




D2C6 D003 


519 
520 
521 
522 


BNZ 


WRDAB 




D2C8 B90003 


523 V 


\/RDAA LDA 


BUFF2B,Y 




D2CB 59FF02 


524 V 


\/RDAB EOR 


BUFF2B-1,Y 




D2CE AA 


525 


TAX 






D2CF BD03D4 


526 


LDA 


WRXLTT.X 




D2D2 A6CE 


527 


LDX 


HSLOTl 




D2D4 9D8DC0 


528 


STA 


DRVWR.X 




D2D7 BD8CC0 


529 
530 
531 
532 


LDA 


DRVRD,X 
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D2DA 


88 


533 


DEY 




D2DB 


D0EB 


534 
535 
536 
537 


BNZ 


WRDAA 


D2DD 


A5CF 


538 


LDA 


ACF 


D2DF 


EA 


539 
540 
541 
542 


NOP 




D2E0 


590002 


543 WRDAC EOR 


BUFF6B,Y 


D2E3 


AA 


544 


TAX 




D2E4 


BD03D4 


545 


LDA 


WRXLTT.X 


D2E7 


AEFADF 


546 


LDX 


HSL0T2 


D2EA 


9D8DC0 


547 


STA 


DRVWR.X 


D2ED 


BD8CC0 


548 


LDA 


DRVRD.X 


D2F0 


B90002 


549 
550 
551 
552 


LDA 


BUFF6B,Y 


D2F3 


C8 


553 


INY 




D2F4 


D0EA 


554 
555 


BNZ 


WRDAC 






556 


Write 


checksum 






557 






D2F6 


AA 


558 


TAX 




D2F7 


BD03D4 


559 


LDA 


WRXLTT,X 


D2FA 


A6CE 


560 


LDX 


HSLOTl 


D2FC 


201DD3 


561 
562 


JSR 


WRCHE3 






563 


Write 


1st data field epilogue byte 






564 






D2FF 


A9DE 


565 


LDA 


#$DE 


D301 


201AD3 


566 
567 


JSR 


WRCHEl 






568 


Write 


2nd data field epilogue byte 






569 






D304 


A9AA 


570 


LDA 


#$AA 


D306 


201AD3 


571 
572 


JSR 


WRCHEl 






573 


Write 


3rd data field epilogue byte 






574 






D309 


A9EB 


575 


LDA 


#$EB 


D30B 


201AD3 


576 
577 


JSR 


WRCHEl 






578 


Write 


a gap byte 






579 






D30E 


A9FF 


580 


LDA 


#$FF 


D310 


201AD3 


581 
582 
583 
584 


JSR 


WRCHEl 


D313 


BD8EC0 


585 


LDA 


DRVRDM.X 


D316 


BD8CC0 


586 V 


VRDAD LDA 


DRVRD.X 


D319 


60 


587 
588 


RTS 




>|!>|C!|CS|C> 


|C >|< S|C !|C S|C S|C !|C >|C >|C> 


^ S|( !|( SK SK SK SK S|(> 


KS|<S|CS|CS|C!|C>|C>|C>|CS|CS|C>|<>|CS|CS|C>|C>|CS|CS|C>|<>|C!|CS|C>|C>|<>|CS|C>|<>|CS|C>|C>|C>|<>|CS|CS|C>|C!|C>|C>|C>|CS|C!|C>|<>|C!|CS|C>|C>|<>|C!|CS|CS|C!^ 






589 










590 










591 
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D31A 


18 


592 


WRCHEl 


CLC 






593 


* JSR 


WRCHE2 






594 


* RTS 








595 






*S|(S|(S|(S|(S|(S|(S|(!|<S|(S|(S|(S|(S|(!|(S|(!|<S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|(S|(S|(S|(S|(S|<!|<S|(S|(S|(S|(S|(S|(!|<S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|(S|(* 






596 










597 










598 






D31B 


48 


599 


WRCHE2 


PHA 


D31C 


68 


600 


PLA 








601 


* JSR 


WRCHE3 






602 


* RTS 








603 






*S(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|C!|CS(CS(CS|CS|CS(CS(C!|CSK 






604 










605 










606 






D31D 


9D8DC0 


607 


WRCHE3 


STA DRVWR.X 


D320 


1D8CC0 


608 


ORA 


DRVRD.X 


D323 


60 


609 


RTS 








610 


; .PAGE 'Reac 


address field' 






611 










612 










613 






D324 


A0FC 


614 


READAF 


LDY #-4 


D326 


84CF 


615 
616 
617 
618 


STY 


RETRYC 


D328 


C8 


619 


CHKTRY 


INY 


D329 


D004 


620 
621 
622 
623 


BNZ 


WAITAl 


D32B 


E6CF 


624 


INC 


RETRYC 


D32D 


F051 


625 
626 


BZ 


ERREX 






627 


; Read a 


byte 






628 






D32F 


BD8CC0 


629 


WAITAl 


LDA DRVRD.X 


D332 


10FB 


630 
631 


BNM 


WAITAl 






632 


; Branch 


if not 1st prologue byte 






633 







D334 C9D5 634 CHKPBl CMP #$D5 
D336 D0F0 635 BNE CHKTRY 

636 ; 

637 ; 

638 ; 
D338 EA 639 NOP 

640 ; 

641 ; Read a byte 

642 ; 
D339 BD8CC0 643 WAITA2 LDA DRVRD,X 
D33C 10FB 644 BNM WAITA2 

645 

Branch if not 2nd prologue byte 



D33E C9AA 



646 
647 
648 



CMP #$AA 
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D340 


D0F2 


649 
650 
651 
652 


D342 


A003 


653 
654 
655 
656 


D344 


BD8CC0 


657 


D347 


10FB 


658 
659 
660 
661 


D349 


C996 


662 


D34B 


D0E7 


663 

664 
665 
666 
667 


D34D 


A900 


668 
669 
670 
671 


D34F 


85CE 


672 
673 
674 
675 


D351 


BD8CC0 


676 


D354 


10FB 


677 
678 
679 
680 


D356 


2A 


681 


D357 


85CF 


682 
683 
684 
685 


D359 


BD8CC0 


686 


D35C 


10FB 


687 
688 
689 
690 


D35E 


25CF 


691 


D360 


99CA00 


692 
693 
694 
695 


D363 


45CE 


696 
697 
698 
699 


D365 


88 


700 


D366 


10E7 


701 
702 
703 
704 


D368 


A8 


705 


D369 


D015 


706 
707 



BNE 



CHKPBl 



LDY #3 

; Read a byte 

WAITA3 LDA DRVRD.X 
BNM WAITA3 

Branch if not address field prologue 



CMP 
BNE 



#$96 
CHKPBl 



.PAGE 



Clear checksum 
LDA #0 

DSKFM STA HCKSUM 

Read an odd bits address field byte 



WAITA4 



BNM 



ROL 
STA 



LDA DRVRD.X 
WAITA4 



A 
HODDB 



Read an even bits address field byte 



WAITA5 



BNM 



AND 
STA 



EOR 



LDA DRVRD,X 
WAITA5 



HODDB 
AFDATA,Y 



HCKSUM 



DEY 

BNM DSKFM 

Branch if checksum error 

TAY 

BNZ ERREX 
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708 


Read 


a 


byte 






709 








D36B 


BD8CC0 


710 WAITA6 




LDA DRVRD,X 


D36E 


10FB 


711 
712 


BNM 




WAITA6 






713 


Branch 


if not first epilogue byte 






714 








D370 


C9DE 


715 


CMP 




#$DE 


D372 


D00C 


716 
717 
718 
719 


BNE 




ERREX 


D374 


EA 


720 
721 


NOP 










722 


Read 


a 


byte 






723 








D375 


BD8CC0 


724 WAITA7 




LDA DRVRD,X 


D378 


10FB 


725 
726 


BNM 




WAITA7 






727 


Branch 


if not 2nd epilogue byte 






728 








D37A 


C9AA 


729 


CMP 




#$AA 


D37C 


D002 


730 
731 
732 
733 


BNE 




ERREX 


D37E 


18 


734 


CLC 






D37F 


60 


735 
736 
737 
738 


RTS 






D380 


38 


739 [ 


ERREX SEC 






D381 


60 


740 
741 


RTS 






*S(C!|C!|CS(CS(C!|C!|C!(C!(C!|C!|CS(CS(C!|C!|CS(CS(C!|C!|CS(CS(C!|C!|CS(CS(CS|C!|CS(CS(C!|CS|CS|CS(CS|CS|CS(CS(C!|C!|CS(CS(CS|C!|CS(CS(CS|CS|CS(CS(CS|CSK 






742 












743 












744 








D382 


A000 


745 ] 
746 
747 
748 


:ntdv ldy 




#0 


D384 


BD8CC0 


749 ] 
750 


[NTDY LDA 




DRVRD.X 






751 


Time 


delay 






752 








D387 


2094D3 


753 


JSR 




INTDZ 


D38A 


48 


754 


PHA 






D38B 


68 


755 
756 


PLA 










757 


Branch 


if drive still moving??? 






758 








D38C 


DD8CC0 


759 


CMP 




DRVRD.X 


D38F 


D003 


760 
761 
762 
763 


BNE 




INTDZ 


D391 


88 


764 


DEY 






D392 


D0F0 


765 
766 


BNZ 




INTDY 
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767 


Retu 


rn to caller 




768 






D394 60 


769 ] 


[NTDZ RTS 






770 


.PAGE 'Tables' 




771 








772 








773 






D395 00 


774 
775 
776 
111 


DB 


$00 


D396 0004 


IIQ 


DB 


$00, $04 


D398 9899080C 


119 


DB 


$98,$99,$08,$0C 


D39C 9C101418 


780 


DB 


$9C,$10,$14,$18 


D3A0 A0A1A2A3 


781 


DB 


$A0,$A1,$A2,$A3 


D3A4 A4A51C20 


782 


DB 


$A4,$A5,$1C,$20 


D3A8 A8A9AA24 


783 


DB 


$A8,$A9,$AA,$24 


D3AC 282C3034 


784 


DB 


$28,$2C,$30,$34 


D3B0 B0B1383C 


785 


DB 


$B0,$B1,$38,$3C 


D3B4 4044484C 


786 


DB 


$40,$44,$48,$4C 


D3B8 B8505458 


787 


DB 


$B8,$50,$54,$58 


D3BC 5C606468 


788 


DB 


$5C,$60,$64,$68 


D3C0 C0C1C2C3 


789 


DB 


$C0,$C1,$C2,$C3 


D3C4 C4C5C6C7 


790 


DB 


$C4,$C5,$C6,$C7 


D3C8 C8C9CA6C 


791 


DB 


$C8,$C9,$CA,$6C 


D3CC CC707478 


792 


DB 


$CC,$70,$74,$78 


D3D0 D0D1D27C 


793 


DB 


$D0,$D1,$D2,$7C 


D3D4 D4D58084 


794 


DB 


$D4,$D5,$80,$84 


D3D8 D8888C90 


795 


DB 


$D8,$88,$8C,$90 


D3DC 94989CA0 


796 


DB 


$94,$98,$9C,$A0 


D3E0 E0E1E2E3 


797 


DB 


$E0,$E1,$E2,$E3 


D3E4 E4A4A8AC 


798 


DB 


$E4,$A4,$A8,$AC 


D3E8 E8B0B4B8 


799 


DB 


$E8,$B0,$B4,$B8 


D3EC BCC0C4C8 


800 


DB 


$BC,$C0,$C4,$C8 


D3F0 F0F1CCD0 


801 


DB 


$F0,$F1,$CC,$D0 


D3F4 D4D8DCE0 


802 


DB 


$D4,$D8,$DC,$E0 


D3F8 F8E4E8EC 


803 


DB 


$F8,$E4,$E8,$EC 


D3FC F0F4F8FC 


804 
805 
806 
807 


DB 


$F0,$F4,$F8,$FC 


D400 00 


808 [ 


)SKCA DB 


$00 


D401 00 


809 [ 


)SKCB DB 


$00 


D402 00 


810 [ 
811 
812 
813 


)SKCC DB 


$00 


D403 96020000 


814 V 


VRXLTT 


DB $96, $02, $00, $00 


D407 97010000 


815 


DB 


$97, $01, $00, $00 


D40B 9A030000 


816 


DB 


$9A,$03,$00,$00 


D40F 9B000200 


817 


DB 


$9B,$00,$02,$00 


D413 9D020200 


818 


DB 


$9D,$02,$02,$00 


D417 9E010200 


819 


DB 


$9E,$01,$02,$00 


D41B 9F030200 


820 


DB 


$9F,$03,$02,$00 


D41F A6000100 


821 


DB 


$A6,$00,$01,$00 


D423 A7020100 


822 


DB 


$A7,$02,$01,$00 


D427 AB010100 


823 


DB 


$AB,$01,$01,$00 


D42B AC030100 


824 


DB 


$AC,$03,$01,$00 


D42F AD000300 


825 


DB 


$AD,$00,$03,$00 
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D433 


AE020300 


826 


D437 


AF010300 


827 


D43B 


B2030300 


828 


D43F 


B3000002 


829 


D443 


B4020002 


830 


D447 


B5010002 


831 


D44B 


B6030002 


832 


D44F 


B7000202 


833 


D453 


B9020202 


834 


D457 


BA010202 


835 


D45B 


BB030202 


836 


D45F 


BC000102 


837 


D463 


BD020102 


838 


D467 


BE010102 


839 


D46B 


BF030102 


840 


D46F 


CB000302 


841 


D473 


CD020302 


842 


D477 


CE010302 


843 


D47B 


CF030302 


844 


D47F 


D3000001 


845 


D483 


D6020001 


846 


D487 


D7010001 


847 


D48B 


D9030001 


848 


D48F 


DA000201 


849 


D493 


DB020201 


850 


D497 


DC010201 


851 


D49B 


DD030201 


852 


D49F 


DE000101 


853 


D4A3 


DF020101 


854 


D4A7 


E5010101 


855 


D4AB 


E6030101 


856 


D4AF 


E7000301 


857 


D4B3 


E9020301 


858 


D4B7 


EA010301 


859 


D4BB 


EB030301 


860 


D4BF 


EC000003 


861 


D4C3 


ED020003 


862 


D4C7 


EE010003 


863 


D4CB 


EF030003 


864 


D4CF 


F2000203 


865 


D4D3 


F3020203 


866 


D4D7 


F4010203 


867 


D4DB 


F5030203 


868 


D4DF 


F6000103 


869 


D4E3 


F7020103 


870 


D4E7 


F9010103 


871 


D4EB 


FA030103 


872 


D4EF 


FB000303 


873 


D4F3 


FC020303 


874 


D4F7 


FD010303 


875 


D4FB 


FE030303 


876 


D4FF 


FF 


877 

878 
879 
880 
881 


D500 


38 


882 


D501 


60 


883 
884 



DB 


$AE 


$02 


$03 


$00 


DB 


$AF 


$01 


$03 


$00 


DB 


$B2 


$03 


$03 


$00 


DB 


$B3 


$00 


$00 


$02 


DB 


$B4 


$02 


$00 


$02 


DB 


$B5 


$01 


$00 


$02 


DB 


$B6 


$03 


$00 


$02 


DB 


$B7 


$00 


$02 


$02 


DB 


$B9 


$02 


$02 


$02 


DB 


$BA 


$01 


$02 


$02 


DB 


$BB 


$03 


$02 


$02 


DB 


$BC 


$00 


$01 


$02 


DB 


$BD 


$02 


$01 


$02 


DB 


$BE 


$01 


$01 


$02 


DB 


$BF 


$03 


$01 


$02 


DB 


$CB 


$00 


$03 


$02 


DB 


$CD 


$02 


$03 


$02 


DB 


$CE 


$01 


$03 


$02 


DB 


$CF 


$03 


$03 


$02 


DB 


$D3 


$00 


$00 


$01 


DB 


$D6 


$02 


$00 


$01 


DB 


$D7 


$01 


$00 


$01 


DB 


$D9 


$03 


$00 


$01 


DB 


$DA 


$00 


$02 


$01 


DB 


$DB 


$02 


$02 


$01 


DB 


$DC 


$01 


$02 


$01 


DB 


$DD 


$03 


$02 


$01 


DB 


$DE 


$00 


$01 


$01 


DB 


$DF 


$02 


$01 


$01 


DB 


$E5 


$01 


$01 


$01 


DB 


$E6 


$03 


$01 


$01 


DB 


$E7 


$00 


$03 


$01 


DB 


$E9 


$02 


$03 


$01 


DB 


$EA 


$01 


$03 


$01 


DB 


$EB 


$03 


$03 


$01 


DB 


$EC 


$00 


$00 


$03 


DB 


$ED 


$02 


$00 


$03 


DB 


$EE 


$01 


$00 


$03 


DB 


$EF 


$03 


$00 


$03 


DB 


$F2 


$00 


$02 


$03 


DB 


$F3 


$02 


$02 


$03 


DB 


$F4 


$01 


$02 


$03 


DB 


$F5 


$03 


$02 


$03 


DB 


$F6 


$00 


$01 


$03 


DB 


$F7 


$02 


$01 


$03 


DB 


$F9 


$01 


$01 


$03 


DB 


$FA 


$03 


$01 


$03 


DB 


$FB 


$00 


$03 


$03 


DB 


$FC 


$02 


$03 


$03 


DB 


$FD 


$01 


$03 


$03 


DB 


$FE 


$03 


$03 


$03 


DB 


$FF 









.PAGE 'Read data field' 



RDFNGl 



SEC 



RTS 
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D502 86CE 



D504 
D505 
D507 
D50A 
D50D 
D510 
D513 



8A 

098C 

8D61D5 

8D78D5 

8D8ED5 

8DA2D5 

8DB7D5 



D516 A53E 
D518 A43F 
D51A 8DB4D5 
D51D 8CB5D5 



D520 38 
D521 E954 
D523 B002 
D525 88 
D526 38 
D527 8D9CD5 
D52A 8C9DD5 



D52D E957 
D52F B001 
D531 88 
D532 8D75D5 
D535 8C76D5 



D538 A020 



D53A 88 
D53B F0C3 



D53D BD8CC0 
D540 10FB 



D542 49D5 
D544 D0F4 



885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 



READDF STX HSLOTl 

; Set low byte of port addresses that read into 'X' register 

TXA 

ORA #$8C 

STA WAITD4+1 

STA WAITD5+1 

STA WAITD6+1 

STA WAITD7+1 

STA WAITD8+1 



LDA 
LDY 
STA 
STY 



CLB 
SBB 
BNB 
DEY 
CLB 
DSKFW STA 
STY 



A3E 
A3E+1 
IMM3+1 
IMM3+2 



#84 
DSKFW 



IMM2+1 
IMM2+2 



SBB #87 

BNB DSKFX 
DEY 

DSKFX STA IMMl+1 

STY IMMl+2 

; Set retry count 

LDY #32 



DSKFY DEY 

BZ RDFNGl 

Read a byte 

WAITDl LDA DRVRD,X 

BNM WAITDl 



Branch if not 1st prologue byte 



DSKGA EOR 
BNZ 



#$D5 
DSKFY 
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D546 EA 


945 
946 


NOP 






947 


Read 


a byte 




948 






D547 BD8CC0 


949 WAITD2 


LDA DRVRD,X 


D54A 10FB 


950 

951 


BNM 


WAITD2 




952 


Branch if not 2nd prologue byt 




953 






D54C C9AA 


954 


CMP 


#$AA 


D54E D0F2 


955 
956 
957 
958 


BNE 


DSKGA 


D550 EA 


959 
960 


NOP 






961 


Read 


a byte 




962 






D551 BD8CC0 


963 WAITD3 


LDA DRVRD,X 


D554 10FB 


964 
965 


BNM 


WAITD3 




966 


Branch if not data field 




967 






D556 C9AD 


968 


CMP 


#$AD 


D558 D0E8 


969 
970 
971 
972 


BNE 


DSKGA 


D55A A0AA 


973 
974 


LDY 


#-86 




975 


Insure checksum starts at zero 




976 






D55C A900 


977 
978 


LDA 


#0 




979 


Save 


current checksum value 




980 






D55E 85CF 


981 [ 
982 


DSKGE STA 


ACF 




983 


Read 


a byte 




984 






D560 AEECC0 


985 V 


\/AITD4 


LDX DRVRD+$60 


D563 10FB 


986 
987 
988 
989 


BNM 


WAITD4 


D565 BD00D3 


990 


LDA 


AD300,X 


D568 995602 


991 


STA 


BUFF6B+86,Y 


D56B 45CF 


992 
993 
994 
995 


EOR 


ACF 


D56D C8 


996 


INY 




D56E D0EE 


997 

998 

999 

1000 


BNZ 


DSKGE 


D570 A0AA 


1001 


LDY 


#$AA 


D572 D003 


1002 
1003 
1004 


BNZ 


WAITD5 
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1005 


/ 






D574 990010 


1006 
1007 


IMMl 


STA 


DUMMY, Y 




1008 


/ 


Read 


a byte 




1009 


t 






D577 AEECC0 


1010 


WAITD5 


LDX DRVRD+$60 


D57A 10FB 


1011 
1012 
1013 
1014 




BNM 


WAITD5 


D57C 5D00D3 


1015 




EOR 


AD300,X 


D57F BE5602 


1016 




LDX 


BUFF6B+86,Y 


D582 5D00D4 


1017 
1018 
1019 
1020 




EOR 


DSKCA.X 


D585 C8 


1021 




INY 




D586 D0EC 


1022 
1023 
1024 
1025 




BNZ 


IMMl 


D588 48 


1026 




PHA 




D589 29FC 


1027 
1028 
1029 
1030 


/ 
t 
t 


AND 


#%11111100 


D58B A0AA 


1031 
1032 


t 


LDY 


#$AA 




1033 


t 


Read 


a byte 




1034 


t 






D58D AEECC0 


1035 


WAITD6 


LDX DRVRD+$60 


D590 10FB 


1036 
1037 
1038 
1039 




BNM 


WAITD6 


D592 5D00D3 


1040 




EOR 


AD300,X 


D595 BE5602 


1041 




LDX 


BUFF6B+86,Y 


D598 5D01D4 


1042 




EOR 


DSKCB.X 


D59B 990010 


1043 
1044 
1045 
1046 


IMM2 


STA 


DUMMY, Y 


D59E C8 


1047 




INY 




D59F D0EC 


1048 
1049 




BNZ 


WAITD6 




1050 




Read 


a byte 




1051 








D5A1 AEECC0 


1052 


WAITD7 


LDX DRVRD+$60 


D5A4 10FB 


1053 
1054 
1055 
1056 


t 
t 
t 


BNM 


WAITD7 


D5A6 29FC 


1057 
1058 
1059 
1060 


t 
t 
t 


AND 


#%11111100 


D5A8 A0AC 


1061 
1062 
1063 
1064 


t 
t 
t 


LDY 


#-84 



User buffer address - 161 



User buffer address - 84 
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D5AA 5D00D3 
D5AD BE5402 
D5B0 5D02D4 
D5B3 990010 



D5B6 AEECC0 
D5B9 10FB 



D5BB C8 
D5BC D0EC 



D5BE 29FC 
D5C0 5D00D3 
D5C3 A6CE 
D5C5 A8 
D5C6 D009 



D5C8 BD8CC0 
D5CB 10FB 



D5CD C9DE 
D5CF F002 



D5D1 38 
D5D2 24 



D5D3 18 
D5D4 68 
D5D5 A055 
D5D7 913E 
D5D9 60 



D5DA 86C8 



D5DC 85C9 



D5DE CDFBDF 
D5E1 F053 



1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 

1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 



DSKGV EOR 
LDX 
EOR 

IMM3 STA 



AD300,X 
BUFF6B+84,Y 
DSKCCX 
DUMMY, Y 



Read a byte 



WAITD8 



BNM 



INY 
BNZ 



LDX DRVRD+$60 
WAITD8 



DSKGV 
Branch if checksum error 



AND 
EOR 
LDX 
TAY 
BNZ 



#%11111100 

AD300,X 

HSLOTl 



RDFNG2 

Read a byte 

WAITD9 LDA DRVRD,X 
BNM WAITD9 

Branch if not 1st epilogue byte 



CMP 
BE 



RDFNG2 



DB 



#$DE 
RDFOK 



SEC 
$24 



RDFOK CLC 
PLA 

LDY #85 
STA (A3E),Y 
RTS 

.PAGE 'Position read head' 



SEEK STX REOSLT 

Save number of track to seek to 

STA REOTRK 

Branch if no head movement needed 

CMP CURTRK 
BE SEEKEX 
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1124 








1125 








1126 






D5E3 A900 


1127 


LDA 


#0 


D5E5 85CF 


1128 
1129 
1130 
1131 


STA 


LOOPC 


D5E7 ADFBDF 


1132 ; 


5EEKLP 


LDA CURTRK 


D5EA 85CE 


1133 
1134 
1135 
1136 


STA 


PRVTRK 


D5EC 38 


1137 


CLB 




D5ED E5C9 


1138 


SBB 


REQTRK 


D5EF F033 


1139 
1140 
1141 
1142 


BZ 


DSKBR 


D5F1 B007 


1143 
1144 
1145 
1146 


BNB 


DSKBN 


D5F3 49FF 


1147 
1148 
1149 
1150 


EOR 


#$FF 


D5F5 EEFBDF 


1151 
1152 
1153 
1154 


INC 


CURTRK 


D5F8 9005 


1155 
1156 
1157 
1158 


BB 


DSKBO 


D5FA 69FE 


1159 DSKBN ADC 


#-2 




1160 








1161 








1162 






D5FC CEFBDF 


1163 
1164 
1165 
1166 


DEC 


CURTRK 


D5FF C5CF 


1167 DSKBO CMP 


LOOPC 


D601 9002 


1168 
1169 
1170 
1171 


BL 


DSKBP 


D603 A5CF 


1172 
1173 
1174 
1175 


LDA 


LOOPC 


D605 C908 


1176 DSKBP CMP 


#8 


D607 B001 


1177 
1178 
1179 
1180 


BGE 


DSKBO 


D609 A8 


1181 
1182 
1183 


TAY 
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1184 


/ 






D60A 


38 


1185 


DSKBQ SEC 




D60B 


2028D6 


1186 
1187 
1188 
1189 




JSR 


GNPH 


D60E 


B948D6 


1190 




LDA 


AMDTB1,Y 






1191 


ifdef GRIG 




D611 


2037D6 


1192 
1193 


else 


JSR 


DELAY 






1194 




JSR 


DLAYCC 






1195 


endi 


f 








1196 












1197 












1198 








D614 


A5CE 


1199 




LDA 


PRVTRK 


D616 


18 


1200 




CLC 




D617 


202BD6 


1201 
1202 
1203 
1204 




JSR 


INTFX 


D61A 


B950D6 


1205 




LDA 


AMDTB2,Y 






1206 


ifde 


f GRIG 




D61D 


2037D6 


1207 
1208 


else 


JSR 


DELAY 






1209 




JSR 


DLAYCC 






1210 


endi 


f 








1211 












1212 












1213 








D620 


E6CF 


1214 




INC 


LGGPC 


D622 


D0C3 


1215 
1216 
1217 
1218 
1219 


DSKBR 


BNZ 


SEEKLP 






1220 


ifdef GRIG 




D624 


2037D6 


1221 
1222 


else 


JSR 


DELAY 






1223 




JSR 


DLAYCC 






1224 


endi 


f 








1225 












1226 












1227 








D627 


18 


1228 




CLC 








1229 


* 


JSR 


GNPH 






1230 


* 


RTS 








1231 








^jtc***************************************;! 






1232 












1233 












1234 








D628 


ADFBDF 


1235 


ONPH 


LDA 


CURTRK 


D62B 


2903 


1236 


INTFX AND 


#$03 


D62D 


2A 


1237 




RGL 


A 


D62E 


05C8 


1238 




GRA 


REGSLT 


D630 


AA 


1239 




TAX 




D631 


BD80C0 


1240 
1241 


t 


LDA 


DRVSM0,X 






1242 


t 


Restore slot nu 
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1243 ; 
D634 A6C8 1244 LDX REQSLT 

1245 ; 

1246 ; Return to caller 

1247 ; 

D636 60 1248 SEEKEX RTS 
1249 

1250 ; 

1251 ; 

1252 ; 

D637 A211 1253 DELAY LDX #17 

1254 ; 

1255 ; 

1256 ; 

D639 CA 1257 DSKFC DEX 

D63A D0FD 1258 BNZ DSKFC 

1259 

1260 

1261 
D63C E646 1262 



D63E D002 1263 
D640 E647 1264 



D642 38 

D643 E901 1269 

D645 D0F0 1270 



D647 60 



INC A46 

BNZ DSKFD 

INC A46+1 
1265 
1266 
1267 
1268 DSKFD CLE 

SBB #1 

BNZ DELAY 
1271 
1272 
1273 

1274 RTS 

1275 ifndef GRIG 
1276 

1277 
1278 
1279 

1280 DLAYCC JSR DELAY 

1281 JSR CONCK 

1282 RTS 

1283 endif 

1284 ; 

1285 ; Arm move delay table 1 

1286 ; 
D648 01302824 1287 AMDTBl DB 1,48,40,36,32,30,29,28 

1288 ; 

1289 ; Arm move delay table 2 

1290 ; 
D650 702C2622 1291 AMDTB2 DB 112,44,38,34,31,30,29,28 



1292 ; .PAGE '???' 

1293 

1294 

1295 

D658 A056 1296 INTGI LDY #86 
D65A A900 1297 LDA #0 
D65C 99FF02 1298 INTGJ STA BUFF2B-1,Y 
D65F 88 1299 DEY 
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D660 D0FA 


1300 
1301 
1302 
1303 


BNZ 


INTGJ 


D662 A255 


1304 


[NTGK LDX 


#85 


D664 B13E 


1305 


[NTGL LDA 


(A3E),Y 


D666 29FC 


1306 


AND 


#$FC 


D668 990002 


1307 


STA 


BUFF6B,Y 


D66B 513E 


1308 


EOR 


(A3E),Y 


D66D C8 


1309 


INY 




D66E C902 


1310 


CMP 


#$02 


D670 1D0003 


1311 


ORA 


BUFF2B,X 


D673 6A 


1312 


ROR 


A 


D674 6A 


1313 


ROR 


A 


D675 9D0003 


1314 


STA 


BUFF2B,X 


D678 CA 


1315 


DEX 




D679 10E9 


1316 


BNM 


I NTGL 


D67B C002 


1317 


CPY 


#2 


D67D D0E3 


1318 
1319 


BNE 


INTGK 




1320 


Return 


to caller 




1321 






D67F 60 


1322 


RTS 






83 
1 
2 
3 
4 ! 


INCLUDE V11I0P2.IAS 




Slot table 


D680 605040 


5LTTBL 


DB $60, $50, $40 




5 
6 
7 
8 
9 [ 


.PAGE 'Disk initialization' 


D683 4A 


HNIT LSR 


A 


D684 C903 


10 


[NTGN CMP 


#$03 


D686 B00B 


11 


BGE 


INTGO 


D688 4903 


12 


EOR 


#$03 


D68A AA 


13 


TAX 




D68B BD2ABF 


14 


LDA 


SLTYPS+3,X 


D68E 4902 


15 


EOR 


#$02 


D690 AA 


16 


TAX 




D691 F002 


17 
18 
19 
20 


BZ 


INTGP 


D693 A209 


21 
22 
23 
24 


[NTGO LDX 


#9 


D695 60 


25 


[NTGP RTS 






84 


INCLUDE INITl.IAS 




1 


.PAGE 'Table of addresses for 




2 
3 
4 
5 
6 . 


ifdef ORIG 




D696 80FE 


]VECTS 


DW UDJMPV 


D698 B0FE 


7 


DW 


DSKNUM 


D69A 00FF 


8 


DW 


BIOS 
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D69C 5CFF 



D69E D8 



D69F 78 



D6A0 A900 
D6A2 85BD 
D6A4 85BE 



D6A6 A8 
D6A7 AA 



D6A8 91BD 
D6AA C8 
D6AB DOFB 



D6AD E6BE 



D6AF E8 



D6B0 E0C0 



9 


DW 


BIOSAF 


10 


endif 




11 


.PAGE 'Clear memory' 


12 






13 


Clear decimal flag 


14 






15 CLRMEM 


CLD 


16 






17 


Disable interrupts 


18 






19 


SEI 




20 






21 


Set 


pointer to location zero 


22 






23 


LDA 


#$00 


24 


STA 


ABD 


25 


STA 


ABD+1 


26 






27 


Clear 'X' and 'Y' registers 


28 






29 ^ 


^ LDA 


#0 


30 


TAY 




31 


TAX 




32 






33 


Clear a page 


34 






35 ] 


[NTGR STA 


(ABD),Y 


36 


INY 




37 


BNZ 


INTGR 


38 






39 


Add 


256 to pointer 


40 






41 


INC 


ABD+1 


42 






43 


Increment page number 


44 






45 


INX 




46 


ifndef GRIG 


47 






48 


Zero 


$0000.. $03FF, $0800.. $67 


49 






50 


CPX 


#$04 


51 


BE 


BEGAE 


52 


CPX 


#$C0 


53 


BE 


BEGAF 


54 


CPX 


#$68 


55 


BNE 


INTGR 


56 


LDX 


#$6D 


57 


STX 


ABD+1 


58 


BNZ 


INTGR 


59 E 


3EGAE LDX 


#$08 


60 


STX 


ABD+1 


61 


BNZ 


INTGR 


62 E 


3EGAF 




63 


else 




64 






65 


Zero 


$0000. .$BFFF 


66 






67 


CPX 


#$C0 
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D6B2 D0F4 


68 


BNE 


INTGR 




69 


endif 






70 


.PAGE 'Slot scan' 




71 








72 


Point 


to slot 7 




73 






D6B4 A0C7 


74 
75 


LDY 


#<$C700 




76 


Store 


current slot page 




77 






D6B6 84C6 


78 ] 
79 


[NTGT STY 


AC5+1 




80 


Sum page and save sum 




81 








82 


ifndef ORIG 




83 


JSR 


CKPAGE+RELOC-CLRMEM 




84 


else 




D6B8 2058D7 


85 


JSR 


CKPAGE 




86 


endif 




D6BB 85D0 


87 


STA 


ADO 


D6BD 86D1 


88 
89 


STX 


ADO+l 




90 


Sum page again 




91 








92 


ifndef ORIG 




93 


JSR 


CKPAGE+RELOC-CLRMEM 




94 


else 




D6BF 2058D7 


95 


JSR 


CKPAGE 




96 


endif 






97 








98 


Branch 


if not ROM page 




99 






D6C2 E000 


100 


CPX 


#$00 


D6C4 F03F 


101 


BE 


INTHD 


D6C6 C5D0 


102 


CMP 


ADO 


D6C8 D03B 


103 


BNE 


INTHD 


D6CA E4D1 


104 


CPX 


ADO+l 


D6CC D037 


105 


BNE 


INTHD 




106 


ifdef ORIG 






107 








108 








109 






D6CE F008 


110 
111 
112 
113 


BE 


INTGX 


D6D0 03183848 


114 ( 


:N05T DB 


$03, $18, $38, $48 


D6D4 3C381848 


115 ( 
116 
117 
118 


:N07T DB 


$3C,$38,$18,$48 




119 ] 


[NTGX 






120 


endif 






121 








122 








123 






D6D8 A205 


124 


LDX 


#5 


D6DA A005 


125 ] 


[NTGY LDY 


#5 


D6DC B1C5 


126 


LDA 


(AC5),Y 
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D6DE DDCED6 


127 




CMP 


CN05T-2,X 


D6E1 D009 


128 




BNE 


INTGZ 




129 


ifnc 


ef GRIG 




130 




CMP 


#$03 




131 




BE 


BEGAN 




132 


endi 


f 




D6E3 A007 


133 




LDY 


#7 


D6E5 B1C5 


134 




LDA 


(AC5),Y 


D6E7 DDD2D6 


135 




CMP 


CN07T-2,X 


D6EA F005 


136 




BE 


INTHA 


D6EC CA 


137 


INTGZ DEX 




D6ED E002 


138 




CPX 


#2 


D6EF B0E9 


139 




BGE 


INTGY 


D6F1 E004 


140 


I NTH A CPX 


#4 


D6F3 D00A 


141 
142 
143 
144 




BNE 


INTHB 


D6F5 A00B 


145 




LDY 


#11 


D6F7 B1C5 


146 




LDA 


(AC5),Y 


D6F9 C901 


147 




CMP 


#$01 


D6FB D002 


148 
149 
150 

151 




BNE 


INTHB 


D6FD A206 


152 




LDX 


#6 




153 


ifnc 


ef GRIG 




154 


t 








155 


t 


Unco 


nditional branch 




156 


t 








157 




BNZ 


INTHB 




158 


t 








159 


t 








160 


t 








161 


BEGAN 


LDY 


#1 




162 




LDA 


(AC5),Y 




163 




CMP 


#$20 




164 




BNE 


INTGZ 




165 










166 










167 










168 




LDY 


#3 




169 




LDA 


(AC5),Y 




170 




CMP 


#$00 




171 




BNE 


INTGZ 




172 










173 










174 










175 




LDY 


#255 




176 




LDA 


(AC5),Y 




177 




BZ 


INTHB 




178 




LDY 


#254 




179 




LDA 


(AC5),Y 




180 




AND 


#$03 




181 




BZ 


INTGZ 




182 




LDA 


#$80 




183 




STA 


ABF33 




184 




LDX 


#7 




185 


endi 


f 






186 


t 
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D6FF A4C6 
D701 8A 
D702 9967BE 
D705 A4C6 
D707 88 
D708 C0C0 
D70A D0AA 



D70C F004 



D70E 2036FF 
D711 60 



D712 A003 



D714 B90ED7 

D717 990ABF 
D71A 88 
D71B 10F7 



D71D A007 



187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 

202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 



INTHB LDY AC5+1 

TXA 

STA SLTYPS-$C0,Y 
INTHD LDY AC5+1 

DEY 

CPY #$C0 

BNE INTGT 
ifdef GRIG 

Unconditional branch 

BE INTHH 
else 

.PAGE 'More stuff 

LDX SLTYPS+3 

STX ABF0E 

LDA #$00 

STA SLTYPS+3 

Initialize for move of instruction sequence 

LDY #4-1 

Unconditional branch 



BNZ INTHI 



endif 

Instruction sequence 

INTHG JSR AFF36 
RTS 
ifdef GRIG 

Initialize for move of instruction sequence 

INTHH LDY #4-1 
endif 

Move ' JSR AFF36' and ' RTS' to SYSCGM 

INTHI 
ifndef GRIG 

LDA INTHG+RELGC-CLRMEM,Y 
else 

LDA INTHG, Y 
endif 

STA ABF0A,Y 

DEY 

BNM INTHI 

Move four addresses to page zero 
LDY #8 - 1 
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D71F B996D6 

D722 99E800 
D725 88 
D726 10F7 



D728 A980 
D72A 85E1 



D72C AD51C0 



D72F AD52C0 



D732 AD54C0 



D735 AD57C0 



D738 AD10C0 



246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 

293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 



INTHJ 
ifndef GRIG 

LDA JVECTS+RELOC-CLRMEM,Y 
else 

LDA JVECTS,Y 
endif 

STA UDJVP.Y 

DEY 

BNM INTHJ 
ifndef lie 



LDA 
STA 



#$80 
AEl 



Set text mode 
LDA AC051 



else 



LDA #0 
STA AEl 

Set ??? mode 

LDA AC050 
endif 

Set bottom for graphics 

LDA AC052 

Select primary page 

LDA AC054 

Select hires graphics 

LDA AC057 

Clear keyboard strobe 

LDA KBSTRB 
ifndef GRIG 

.PAGE 'Logic for versions after 1.0' 

Activate alternate character set 

STA ALTCHS 

Read and write RAM; use bank #2 

LDA LCBNK2 

Clear screen 
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305 




LDA 


BEGDK+1+RELOC-CLRMEM 


306 




PHA 




307 




LDA 


BEGDK+RELOC-CLRMEM 


308 




PHA 




309 




JMP 


(NFF52) 


310 








311 




INVERT 


312 








313 


BEGDH 


LDA 


BEGDL+1+RELOC-CLRMEM 


314 




PHA 




315 




LDA 


BEGDL+RELOC-CLRMEM 


316 




PHA 




317 




JMP 


(NFF52+2) 


318 








319 




INTAG 


320 








321 


BEGDI 


LDA 


BEGDM+1+RELOC-CLRMEM 


322 




PHA 




323 




LDA 


BEGDM+RELOC-CLRMEM 


324 




PHA 




325 




JMP 


(NFF52+4) 


326 


/ 






327 


/ 


Read 


and write RAM; use bank #1 


328 


/ 






329 


BEGDJ 


LDA 


LCBNKl 


330 


/ 






331 


/ 






332 


/ 






333 




BNZ 


BEGAY 


334 


/ 






335 


/ 






336 


t 






337 


BEGDK DW 


BEGDH- 1 


338 


BEGDL DW 


BEGDI-1 


339 


BEGDM DW 


BEGDJ -1 


340 








341 




Read 


ROM; write RAM; use bank # 


342 








343 


BEGAY LDA 


ROMIN 


344 




LDA 


ROMIN 


345 


/ 






346 


/ 


Get 


^OM version byte 


347 


/ 






348 




LDA 


VERZIN 


349 


/ 






350 


/ 


Get 


^OM revision byte 


351 


t 






352 




LDY 


ZIDBYT 


353 


t 






354 


t 


Read 


and write RAM; use bank #1 


355 


t 






356 




LDX 


LCBNKl 


357 




LDX 


LCBNKl 


358 


t 






359 


t 






360 


t 






361 




LDX 


#$80 


362 


t 






363 


t 


Branch if Apple He ROM 


364 


t 







Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 250 of 292 



Apple ][ Pascal Technical Information 



365 


CMP 


#$06 


366 


BE 


BEGAZ 


367 






368 


Branch if open-apple k 


369 






370 


LDA 


BUTN0 


371 


BM 


BEGBF 


372 






373 






374 






375 


STX 


ABFll 


376 






377 


Unconditional branch 


378 






379 


BNM 


BEGBF 


380 






381 






382 






383 BEGAZ STX 


ABFll 


384 






385 






386 






387 


TYA 




388 


AND 


#$F0 


389 


CMP 


#$E0 


390 


BE 


BEGBB 


391 






392 






393 






394 


CMP 


#$00 


395 


BE 


BEGBA 


396 






397 






398 






399 


LDA 


#$A3 


400 






401 


Unconditional branch 


402 






403 


BM 


BEGBC 


404 






405 






406 






407 [ 


3EGBA LDA 


#$C3 


408 






409 


Unconditional branch 


410 






411 


BM 


BEGBC 


412 






413 






414 






415 [ 


3EGBB STX 


ABF31 


416 






417 






418 






419 


LDA 


#$83 


420 






421 


Set 


'ALTZP' Softswitch 


422 






423 


STA 


ALTZPS 


424 
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425 


/ 






426 


/ 






427 


STA 


AF800 




428 


/ 






429 


/ 






430 


/ 






431 


LDA 


#$81 




432 


STA 


AFC00 




433 


/ 






434 


/ 






435 


/ 






436 


LDA 


AF800 




437 


/ 






438 


; Clear 


'ALTZP' Softswitch 




439 


t 






440 


STA 


ALTZPC 




441 


/ 






442 


/ 






443 


/ 






444 


CMP 


#$83 




445 


BE 


BEGBC 




446 








447 








448 








449 


CMP 


#$81 




450 


BNE 


BEGBF 




451 


/ 






452 


/ 






453 


t 






454 


BEGBC STA 


ABF31 




455 


/ 






456 


/ 






457 


/ 






458 


BEGBF LDA 


#$02 




459 


STA 


CNFLGS 




460 


endif 






461 


ifdef GRIG 






462 


; .PAGE 'Log 


Lc for version 1.0' 




463 


ifndef lie 




464 


/ 






465 


/ 






466 


t 




D73B 203DDB 


467 
468 
469 
470 


JSR 

t 


DOFF 


D73E 20C7DB 


471 
472 
473 
474 


JSR 

/ 
t 


INVERT 


D741 2010D0 


475 
476 
477 
478 


JSR 

t 


INTAG 


D744 AD2ABF 


479 


LDA 


SLTYPS+3 


D747 A030 


480 


LDY 


#$30 


D749 20F8D8 


481 


JSR 


INTJT 


D74C E000 


482 


CPX 


#0 


D74E D005 


483 
484 


BNE 

t 


INTHK 
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D750 A904 
D752 8D0EBF 



D755 4CF5FE 



485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 



LDA 
STA 



INTHK JMP 

else 
JSR 
LDA 
STA 
STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
NOP 
NOP 
NOP 
NOP 
NOP 
JMP 

endif 



#4 
ABF0E 



OST 

INTAG 

#$00 

$F4 

$F5 

$F3 

$F0 

#$08 

$F1 

#$28 

$F2 



$FEF5 






D758 A900 
D75A AA 
D75B A8 



D75C 18 
D75D 71C5 
D75F 9001 
D761 E8 
D762 C8 
D763 D0F7 



D765 60 



D766 38 



D767 48 



512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

85 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 



Compute sum of memory page 

CKPAGE LDA #0 
TAX 
TAY 



CKNX CLC 

ADC (AC5),Y 

BNC NOCRY 

INX 
NOCRY INY 

BNZ CKNX 



Return page sum in 'X' register and accumulator 
RTS 



endif 

INCLUDE CHARIOO.IAS 

I 
t 

TDELAY CLB 

; Push loop control value 

INTHR PHA 
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D768 E901 
D76A D0FC 



D76C 68 
D76D E901 



D76F D0F6 



D771 60 



12 


INTHS SBB 


#1 


13 


BNZ 


INTHS 


14 






15 


; Decrement loop c 


16 






17 


PLA 




18 


SBB 


#1 


19 


/ 




20 


/ 




21 


t 




22 


BNZ 


INTHR 


23 


/ 




24 


; Return 


to caller 


25 


/ 




26 


RTS 





27 






D772 08 
D773 48 
D774 8A 
D775 48 
D776 98 
D777 48 



D778 EE13BF 
D77B D003 
D77D EE14BF 



D780 AD2ABF 
D783 C903 
D785 F040 



D787 C904 
D789 F05E 



D78B C906 
D78D F05D 



D78F AD00C0 
D792 1055 



28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 



Save CPU state 



CONCK PHP 
PHA 
TXA 
PHA 
TYA 
PHA 



Increment 16 bit random seed 



INTIC INC 
BNZ 
INC 

INTID 



RANDNO 

INTID 

RANDNO+1 



ifndef lie 

LDA SLTYPS+3 

CMP #3 

BE COMCK 



CMP 
BE 



#4 
INTIK 



CMP #6 
BE INTIM 



endif 

Branch if no key pressed 

LDA KBD 
ifndef lie 

BNM INTIK 
else 

BNM INTIS 
endif 
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71 








72 


Clear 


keyboard strobe 




73 






D794 8D10C0 


74 
75 


STA 


KBSTRB 




76 


Mask c 


)ff high order bit 




77 






D797 297F 


78 
79 


AND 


#%01111111 




80 


Save c 


haracter in 'X' register 




81 






D799 AA 


82 


TAX 






83 


ifndef lie 






84 








85 


Brand' 


if not checking for spe 




86 






D79A ADICBF 


87 


LDA 


SPCHAR 


D79D 6A 


88 


ROR 


A 


D79E B037 


89 
90 
91 
92 


BC 


INTIJ 


D7A0 8A 


93 


TXA 




D7A1 C90B 


94 


CMP 


#$0B 


D7A3 D002 


95 
96 
97 
98 


BNE 


INTIE 


D7A5 A95B 


99 
100 
101 
102 


LDA 


#$5B 


D7A7 C901 


103 ] 


[NTIE CMP 


#1 


D7A9 D00E 


104 
105 
106 
107 


BNE 


INTIF 


D7AB 20DAFF 


108 
109 


JSR 


HTAB 




110 


Reset 


auto-follow bit 




111 






D7AE AD15BF 


112 


LDA 


CNFLGS 


D7B1 29FE 


113 


AND 


#%11111110 


D7B3 8D15BF 


114 
115 
116 
117 


STA 


CNFLGS 


D7B6 4C33D8 


118 
119 


JMP 


INTIS 




120 


Branch 


if not ^Z 




121 






D7B9 C91A 


122 ] 


[NTIF CMP 


#$1A 


D7BB D07E 


123 
124 
125 
126 


BNE 


INTJA 


D7BD AD15BF 


127 


LDA 


CNFLGS 


D7C0 0901 


128 


ORA 


#%00000001 


D7C2 8D15BF 


129 
130 


STA 


CNFLGS 
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D7C5 D06C 



131 
132 
133 
134 



Unconditional branch 
BNZ INTIS 



135 
136 
137 
138 COMCK LDA 



D7C7 ADBEC0 
D7CA 4A 
D7CB 9066 



D7CD ADBFC0 



D7D0 297F 



D7D2 AA 



D7D3 ADICBF 
D7D6 6A 
D7D7 6A 

D7D8 B041 
D7DA 8A 



D7DB A055 
D7DD D1F8 
D7DF D01A 



D7E1 AD15BF 
D7E4 4980 
D7E6 8D15BF 



D7E9 4C33D8 



D7EC A901 
D7EE A030 
D7F0 2024DA 
D7F3 903E 



Branch if comm. character not available 



139 LSR 

140 BNC 

141 ; 
142 
143 
144 
145 
146 
147 

148 GOTCH AND 

149 ; 

150 ; 

151 ; 

152 INTII TAX 

153 endif 
154 
155 
156 

157 LDA 

158 ROR 

159 INTIJ ROR 
ifndef lie 



AC0BE 

A 

INTIS 



Get character from DART 
LDA AC0BF 

Strip off high order bit 
#$7F 



SPCHAR 

A 

A 



Toggle stop bit 



160 

161 BC INTIP 

162 TXA 

163 else 

164 TXA 

165 BC INTIP 

166 endif 

167 LDY #$55 

168 CMP (SYCPTR),Y 

169 BNE INTIN 
170 
171 
172 

173 LDA CNFLGS 

174 EOR #$80 

175 STA CNFLGS 
176 
177 
178 

179 INTIK JMP INTIS 

180 ifndef lie 
181 
182 
183 

184 INTIM LDA #$01 

185 LDY #$30 

186 JSR INTLD 

187 BNC INTIS 

188 ; 

189 ; 



Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 256 of 292 





190 






D7F5 200CDA 


191 
192 
193 
194 


JSR 


FREADl 


D7F8 4CD0D7 


195 


JMP 


GOTCH 




196 


endif 






197 








198 








199 






D7FB 88 


200 ] 


[NTIN DEY 




D7FC D1F8 


201 


CMP 


(SYCPTR),Y 


D7FE D0OB 


202 
203 


BNE 


NOTBRK 




204 


Reset 


flush and s 




205 






D800 AD15BF 


206 


LDA 


CNFLGS 


D803 293F 


207 


AND 


#%00111111 


D805 8D15BF 


208 
209 
210 

211 


STA 


CNFLGS 


D808 4CE3FE 


212 
213 
214 
215 


JMP 


TOBRK 


D80B 88 


216 NOTBRK 


DEY 


D80C D1F8 


217 


CMP 


(SYCPTR),Y 


D80E D00C 


218 
219 


BNE 


INTIQ 




220 


Toggle 


flush bit 




221 






D810 AD15BF 


222 


LDA 


CNFLGS 


D813 4940 


223 


EOR 


#$40 


D815 8D15BF 


224 
225 
226 
227 


STA 


CNFLGS 


D818 4C33D8 


228 
229 
230 
231 


JMP 


INTIS 




232 ] 


[NTIP 






233 


ifndef lie 




D81B 8A 


234 


TXA 






235 


endif 




D81C AE19BF 


236 ] 


[NTIQ LDX 


WPTR 


D81F 2090D8 


237 


JSR 


IXZE78 


D822 EC18BF 


238 


CPX 


RPTR 


D825 D006 


239 
240 
241 
242 


BNE 


INTIR 


D827 201ADB 


243 
244 
245 
246 


JSR 


DOBEL 


D82A 4C33D8 


247 
248 
249 


JMP 


INTIS 
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250 


/ 




D82D 8E19BF 


251 


INTIR STX 


WPTR 


D830 9DB103 


252 
253 
254 
255 


STA 


A03B1,X 


D833 2C15BF 


256 


INTIS BIT 


CNFLGS 


D836 1051 


257 
258 
259 
260 


BNM 


INTJN 


D838 4C78D7 


261 


JMP 


INTIC 




262 


ifndef lie 






263 


/ 






264 


; Save keypress 




265 


/ 




D83B AA 


266 
267 
268 
269 


INTJA TAX 

t 
t 
t 




D83C 2C63C0 


270 


BIT 


AC063 


D83F 1015 


271 
272 
273 
274 


BNM 


INTJC 


D841 A5E1 


275 


LDA 


AEl 


D843 2A 


276 
277 


ROL 

t 


A 




278 


; Restore keypress 




279 


t 




D844 8A 


280 
281 
282 
283 


TXA 

t 
t 
t 




D845 B01E 


284 
285 


BC 


INTJG 




286 


; Branch 


if not upper c 




287 


/ 




D847 C941 


288 


CMP 


#'A 


D849 901A 


289 


BL 


INTJG 


D84B C95B 


290 


CMP 


#'Z+1 


D84D B016 


291 
292 


BGE 


INTJG 




293 


; Convert to lower case 




294 


/ 




D84F 0920 


295 
296 


ORA 

t 


#%00100000 




297 


; Unconditional branch 




298 


t 




D851 D003 


299 
300 
301 
302 


BNZ 

t 
t 
t 


INTJC 


D853 4CD2D7 


303 
304 
305 
306 


INTJB JMP 

t 


INTII 


D856 A205 


307 


INTJC LDX 


#6-1 


D858 DDCEFF 


308 


INTJE CMP 


XLTIN.X 


D85B F005 


309 


BE 


INTJF 
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D85D CA 


310 


DEX 




D85E 10F8 


311 
312 


BNM 


INTJE 




313 


; Unconditional branch 




314 


/ 




D860 3003 


315 
316 
317 
318 


BM 

t 
t 
t 


INTJG 


D862 BDD4FF 


319 
320 
321 
322 


INTJF LDA 

/ 
/ 


XLTOUT.X 


D865 48 


323 
324 
325 
326 


INTJG PHA 

/ 




D866 A5E1 


327 


LDA 


AEl 


D868 2940 


328 


AND 


#%01000000 


D86A F004 


329 
330 
331 
332 


BZ 


INTJK 


D86C A900 


333 


LDA 


#0 


D86E 85E1 


334 
335 
336 
337 


STA 


AEl 


D870 68 


338 


INTJK PLA 




D871 C905 


339 


CMP 


#$05 


D873 D007 


340 
341 
342 
343 


BNE 


INTJL 


D875 A5E1 


344 


LDA 


AEl 


D877 4980 


345 
346 
347 
348 


EOR 

/ 
t 
t 


#%10000000 


D879 4C82D8 


349 
350 


JMP 


INTJM 




351 


; Branch 


if not '^W 




352 


/ 




D87C C917 


353 


INTJL CMP 


#$17 


D87E D0D3 


354 
355 
356 
357 


BNE 

t 
t 


INTJB 


D880 A9C0 


358 
359 
360 
361 


LDA 

/ 
t 
t 


#%11000000 


D882 85E1 


362 
363 
364 
365 


INTJM STA 


AEl 


D884 20FBFE 


366 


JSR 


D0H12 


D887 D0AA 


367 


BNZ 


INTIS 




368 


endif 






369 


t 
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370 


Restore CPU state 






371 






D889 


68 


372 ] 


[NTJN PLA 




D88A 


A8 


373 


TAY 




D88B 


68 


374 


PLA 




D88C 


AA 


375 


TAX 




D88D 


68 


376 


PLA 




D88E 


28 


377 
378 


PLP 








379 


Return to caller 






380 






D88F 


60 


381 
382 


RTS 








383 


Increment X register, clear X reg 






384 






D890 


E8 


385 ] 


[XZE78 


INX 


D891 


E04E 


386 


CPX 


#78 


D893 


D002 


387 


BNE 


INTJQ 


D895 


A200 


388 


LDX 


#0 


D897 


60 


389 ] 


[NTJQ RTS 








390 


.PAGE 'Console initialization' 






391 










392 


Pull 


return address from stack 






393 






D898 


68 


394 ( 


UNIT PLA 




D899 


85F6 


395 


STA 


TEMP 


D89B 


68 


396 


PLA 




D89C 


85F7 


397 
398 


STA 


TEMP+1 






399 


Save 


pointer to SYSCOM area 






400 






D89E 


68 


401 


PLA 




D89F 


85F8 


402 


STA 


SYCPTR 


D8A1 


68 


403 


PLA 




D8A2 


85F9 


404 
405 


STA 


SYCPTR+1 






406 


Save 


break address 






407 






D8A4 


68 


408 


PLA 




D8A5 


8D16BF 


409 


STA 


BREAK 


D8A8 


68 


410 


PLA 




D8A9 


8D17BF 


411 
412 


STA 


BREAK+1 






413 


Push 


return address back on stack 






414 






D8AC 


A5F7 


415 


LDA 


TEMP+1 


D8AE 


48 


416 


PHA 




D8AF 


A5F6 


417 


LDA 


TEMP 


D8B1 


48 


418 
419 


PHA 








420 


Flush 


type-ahead buffer 






421 






D8B2 


AD18BF 


422 


LDA 


RPTR 


D8B5 


8D19BF 


423 
424 


STA 


WPTR 






425 


Reset 


stop, flush and auto-follow 






426 






D8B8 


AD15BF 


427 


LDA 


CNFLGS 


D8BB 


293E 


428 


AND 


#$3E 



78 
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D8BD 8D15BF 


429 


STA 


CNFLGS 




430 


ifndef lie 






431 








432 


Horizontal shift 




433 






D8C0 20E5FF 


434 


JSR 


TAB3 




435 


endif 






436 








437 








438 






D8C3 A200 


439 
440 


LDX 


#0 




441 


Return 


to ealler 




442 






D8C5 60 


443 


RTS 






444 


.PAGE 'Console read' 




445 








446 








447 






D8C6 2059DC 


448 C 


IREAD JSR 


INTOA 




449 


ifndef lie 






450 








451 








452 






D8C9 A030 


453 
454 
455 
456 


LDY 


#$30 


D8CB AD2ABF 


457 


LDA 


SLTYPS+3 


D8CE C904 


458 


CMP 


#$04 


D8D0 D006 


459 
460 
461 
462 


BNE 


INTJS 


D8D2 2015DA 


463 


JSR 


RSER 


D8D5 297F 


464 
465 


AND 


#$7F 




466 


Return 


to ealler 




467 






D8D7 60 


468 


RTS 






469 ] 


[NTJS 






470 


endif 






471 








472 








473 






D8D8 2072D7 


474 


JSR 


CONCK 


D8DB AE18BF 


475 


LDX 


RPTR 


D8DE EC19BF 


476 


CPX 


WPTR 




477 


ifndef lie 




D8E1 F0E3 


478 


BE 


CREAD 




479 


else 






480 


BE 


CREAD+3 




481 


endif 




D8E3 2090D8 


482 


JSR 


IXZE78 


D8E6 8E18BF 


483 


STX 


RPTR 




484 


ifdef lie 






485 


JSR 


$DE8A 




486 


LDX 


RPTR 




487 


endif 
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D8E9 BDB103 


488 


LDA A03B1,X 


D8EC A200 


489 
490 ; 


LDX #0 




491 ; 


Return to caller 




492 ; 




D8EE 60 


493 


RTS 
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494 ;.PAGE 'Printer initialization' 

495 ; 

496 ; 

497 ; 



D8EF 


A010 


498 F 
499 


^INIT LDY 


#$10 






500 


Branch 


if printer card 






501 






D8F1 


AD28BF 


502 


LDA 


SLTYPS+1 


D8F4 


C905 


503 


CMP 


#5 


D8F6 


F035 


504 
505 


BE 


CLRIOl 






506 


Branch 


if serial card 






507 






D8F8 


C904 


508 ] 


[NTJT CMP 


#4 


D8FA 


F034 


509 
510 


BE 


ISER 






511 


Branch 


if com card 






512 






D8FC 


C903 


513 


CMP 


#3 


D8FE 


F023 


514 
515 
516 
517 


BE 


ICOM 


D900 


C906 


518 


CMP 


#6 


D902 


F003 


519 
520 


BE 


FINIT 






521 


Set lOResult 






522 






D904 


A209 


523 
524 


LDX 


#9 






525 


Return 


to caller 






526 






D906 


60 


527 


RTS 








528 


.PAGE 'Firmware initialization' 






529 










530 










531 






D907 


48 


532 I 


=INIT PHA 




D908 


2039D9 


533 
534 
535 
536 


JSR 


SERl 


D90B 


A00D 


537 


LDY 


#13 


D90D 


B1F6 


538 I 


-VECl LDA 


(TEMP),Y 


D90F 


85F6 


539 


STA 


TEMP 


D911 


ACF806 


540 


LDY 


A06F8 


D914 


68 


541 


PLA 




D915 


6CF600 


542 
543 


JMP 


(TEMP) 


****> 


h; ******* * 


(<*******> 


K********************************************************* 






544 
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545 


/ 






546 


/ 






547 


GINIT 






548 


ifnd 


ef lie 


D918 AD51C0 


549 




LDA AC051 




550 


else 






551 




LDA AC050 




552 


endi 


f 




553 








554 








555 






D91B 60 


556 




RTS 




557 


;.PAGE 'Remote initialization' 




558 


t 






559 


t 






560 


t 




D91C AD29BF 


561 


RINIT LDA SLTYPS+2 




562 


t 






563 


t 






564 


t 




D91F A020 


565 
566 


t 


LDY #$20 




567 


t 


Unconditional branch 




568 


t 




D921 D0D5 


569 




BNZ INTJT 




570 


;.PAGE 'Initialize com card' 




571 








572 








573 






D923 A903 


574 


icoM 


LDA #$03 


D925 998EC0 


575 
576 
577 
578 




STA AC08E,Y 


D928 A915 


579 




LDA #$15 


D92A 998EC0 


580 
581 


t 


STA AC08E,Y 




582 


t 


lOResult always zero 




583 


t 




D92D A200 


584 


CLRIOl LDX #0 




585 


/ 






586 


/ 


Return to caller 




587 


/ 




D92F 60 


588 




RTS 




589 


;.PAGE 'Initialize serial card 




590 


t 






591 


t 






592 


t 




D930 2039D9 


593 
594 


ISER 


JSR SERl 




595 


t 


Set up slot dependents 




596 


t 




D933 2000C8 


597 
598 


t 


JSR AC800 




599 


t 


lOResult always zero 




600 


t 




D936 A200 


601 




LDX #0 
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D938 60 



D939 8CF806 
D93C 98 
D93D 4A 
D93E 4A 
D93F 4A 
D940 4A 
D941 09C0 
D943 AA 



D944 A900 
D946 85F6 
D948 86F7 



D94A ADFFCF 



D94D B1F6 



D94F 60 



D950 2072D7 



D953 2C15BF 
D956 7020 



D958 AA 



602 
603 
604 
605 

606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 

636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 



RTS 



.PAGE 'Assorted serial card setup' 



SERl STY 
TYA 
LSR 
LSR 
LSR 
LSR 
ORA 
TAX 



A06F8 

A 
A 
A 
A 
#$C0 



LDA #0 
STA TEMP 
STX TEMP+1 

Turn off all C8 ROMs 

LDA ACFFF 

Select C8 bank 

LDA (TEMP),Y 

Return to caller 

RTS 

.PAGE 'Console initialization' 



CWRITE JSR CONCK 
ifdef lie 



JSR $D97A 
endif 
ifndef lie 



BIT 
BV 



TAX 



CNFLGS 
INTKJ 
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D959 A030 
D95B AD2ABF 
D95E C903 
D960 F050 



D962 C904 
D964 F024 



D966 C906 
D968 F011 



D96A 8A 
D96B 85F6 



D96D 20C7DB 
D970 A4F4 
D972 2062DA 
D975 20C7DB 



D978 A200 



D97A 60 



660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 



LDY 
LDA 

CMP 
BE 



CMP 
BE 



CMP 
BE 



TXA 
STA 



JSR 
LDY 
JSR 
JSR 



endif 



686 

687 ; 

688 ; 

689 ; 

690 INTKJ LDX 

691 ; 

692 ; 

693 ; 

694 RTS 



#$30 
SLTYPS+3 
#3 
WCOM 



#4 
WSER 



#6 
WFIRM 



TEMP 



INVERT 
HPOS 
V0UT2 
INVERT 



#0 



D97B 8A 
D97C 48 
D97D A900 
D97F 202DDA 



D982 2039D9 



D985 A00F 



D987 4C0DD9 



695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 



.PAGE 'Write to firmware' 



WFIRM TXA 
PHA 
LDA 
JSR 



#0 
lOWAIT 



JSR SERl 



LDY 



JMP 



#$0F 



FVECl 



715 
716 
717 



.PAGE 'Write to serial card' 
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D98A 2072D7 



D98D 8A 
D98E 48 



D98F 2039D9 



D992 68 
D993 9DB805 



D996 20AAC9 



D999 A200 



D99B 60 



D99C AA 
D99D AD29BF 
D9A0 A020 



D9A2 D032 



D9A4 2072D7 



D9A7 ADCICI 
D9AA 30F8 



D9AC 8E90C0 



D9AF A200 



718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 

746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 

757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 



WSER JSR CONCK 

; Save data byte on stack 

TXA 
PHA 

/ 
I 

JSR SERl 

; Set up data byte 

PLA 

STA A05B8,X 

; Send it (shout) 

JSR AC9AA 
; lOResult always zero 

LDX #0 
; Return to caller 

RTS 
.PAGE 'Remote write' 



RWRITE 



LDA 
LDY 



TAX 

SLTYPS+2 

#$20 



Unconditional branch 
BNZ INTKV 
;.PAGE 'Write to printer card in slot 1' 

I 
t 

INTKP JSR CONCK 

; Branch if printer not ready 

LDA ACICI 
BM INTKP 

; Send character 

STX AC090 
; lOResult always zero 

LDX #0 



Apple ][ Pascal 1.1 P-Code Interpreter 6502 Disassembly 

Willi Kusche -- ca. 1990s -- Page 266 of 292 



Apple ][ Pascal Technical Information 





776 


/ 


Return 


to caller 




111 


/ 






D9B1 60 


IIQ 




RTS 






119) 


;.PAGE 'Write to com card' 




780 


/ 








781 


/ 








782 


t 






D9B2 2072D7 


783 
784 


WCOM 


JSR 


CONCK 




785 


/ 


Branch 


if DART not ready 




786 


/ 






D9B5 B98EC0 


787 




LDA 


AC08E,Y 


D9B8 2902 


788 




AND 


#$02 


D9BA F0F6 


789 
790 




BZ 


WCOM 




791 




Send c 


haracter 




792 








D9BC 8A 


793 




TXA 




D9BD 998FC0 


794 
795 


/ 


STA 


AC08F,Y 




796 


/ 


lOResu 


It always zero 




797 


/ 






D9C0 A200 


798 
799 


t 


LDX 


#0 




800 


t 


Return 


to caller 




801 


t 






D9C2 60 


802 




RTS 






803 


;.PAGE 'Printer write' 




804 


/ 








805 


t 








806 


t 






D9C3 AA 


807 


PWRITE 


TAX 




808 


/ 








809 


/ 








810 


t 






D9C4 AD0FBF 


811 




LDA 


LFFLAG 


D9C7 1004 


812 
813 
814 
815 




BNM 


INTKU 


D9C9 E00A 


816 




CPX 


#$0A 


D9CB F0AB 


817 
818 
819 
820 


t 
t 
t 


BE 


INTKJ 


D9CD A010 


821 
822 
823 
824 


INTKU 

/ 
t 
t 


LDY 


#$10 


D9CF AD28BF 


825 




LDA 


SLTYPS+1 


D9D2 C905 


826 




CMP 


#5 


D9D4 F0CE 


827 
828 
829 
830 




BE 


INTKP 


D9D6 C904 


831 


INTKV CMP 


#4 


D9D8 F0B0 


832 
833 


t 


BE 


WSER 
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834 


/ 








835 


/ 






D9DA C903 


836 




CMP 


#3 


D9DC F0D4 


837 
838 
839 
840 




BE 


WCOM 


D9DE C906 


841 




CMP 


#6 


D9E0 F099 


842 
843 
844 
845 


t 
t 
t 


BE 


WFIRM 


D9E2 A209 


846 


INTKW LDX 


#9 




847 


/ 








848 


t 








849 


t 






D9E4 60 


850 




RTS 






851 


; .PAGE 'Remote read ' 




852 










853 










854 








D9E5 AD29BF 


855 


RREAC 


LDA 


SLTYPS+2 


D9E8 A020 


856 




LDY 


#$20 


D9EA C904 


857 




CMP 


#4 


D9EC F027 


858 
859 
860 
861 




BE 


RSER 


D9EE C903 


862 




CMP 


#3 


D9F0 F006 


863 
864 
865 
866 




BE 


RCOM 


D9F2 C906 


867 




CMP 


#6 


D9F4 F011 


868 
869 




BE 


RFIRM 




870 




Unconditional branch 




871 








D9F6 D0EA 


872 




BNE 


INTKW 




873 


;.PAGE 'Read from com card 




874 


/ 








875 


/ 








876 


/ 






D9F8 2072D7 


877 
878 


RCOM 

t 


JSR 


CONCK 




879 


t 


Branch 


if character r 




880 


t 






D9FB B98EC0 


881 




LDA 


AC08E,Y 


D9FE 4A 


882 




LSR 


A 


D9FF 90F7 


883 
884 
885 
886 


t 
t 
t 


BNC 


RCOM 


DA01 B98FC0 


887 
888 


t 


LDA 


AC08F,Y 




889 


t 


lOResL 


It always zero 




890 


t 






DA04 A200 


891 




LDX 


#0 
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892 










893 




Return 


to caller 




894 








DA06 60 


895 




RTS 






896 


.PAGE 'Read 


from firmware 




897 










898 










899 








DA07 A901 


900 RFIRM 


LDA 


#1 


DA09 202DDA 


901 
902 
903 
904 




JSR 


lOWAIT 


DA0C 2039D9 


905 I 


=READ1 


JSR SERl 




906 










907 










908 








DA0F 48 


909 
910 
911 
912 




PHA 




DA10 A00E 


913 
914 
915 
916 




LDY 


#$0E 


DA12 4C0DD9 


917 




JMP 


FVECl 
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918 ;.PAGE 'Read from serial card' 

919 ; 

920 ; 

921 ; 

DA15 2072D7 922 RSER JSR CONCK 

923 ; 





924 ; 






925 ; 




DA18 2039D9 


926 
927 ; 


JSR SERl 




928 ; 


Get a byte (shiftin) 




929 ; 




DAIB 204DC8 


930 

931 ; 

932 ; 

933 ; 


JSR AC84D 


DAIE BDB805 


934 
935 ; 


LDA A05B8,X 




936 ; 


lOResult always zero 




937 ; 




DA21 A200 


938 
939 ; 


LDX #0 




940 ; 


Return to caller 




941 ; 




DA23 60 


942 
943 


RTS 



944 

945 

946 
DA24 48 947 INTLD PHA 
DA25 2039D9 948 JSR SERl 
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DA28 


A010 


949 


LDY 


#$10 


DA2A 


4C0DD9 


950 

951 


JMP 


FVECl 


*S(CS|CS|CS(CS(CS|C!|CS(CS(CS|CS|CS|CS|CS|C!|CS(CS(C!|C!|CS(CS(CS|C!|CS(CS(CS|CS|CS|CS|CS|C!|CS|CS(CS|CS|CS(CS|CS|C!|CS|CS(CS|CS|CS(CS|CS|C!|CS|CS(CS|C 






952 










953 










954 






DA2D 


2072D7 


955 lOWAIT 


JSR CONCK 


DA30 


48 


956 


PHA 




DA31 


2024DA 


957 


JSR 


INTLD 


DA34 


68 


958 


PLA 




DABS 


90F6 


959 
960 
961 
962 


BNC 


lOWAIT 


DA37 


60 


963 


RTS 








86 


INCLUDE INC. 1 hRM . IAS 






1 
2 
3 
4 
5 ( 


ifdef GRIG 




DA38 


IB 


:CHTBL 


DB $1B 


DA39 


IE 


6 


DB 


$1E 


DA3A 


0D 


7 


DB 


$0D 


DA3B 


0A 


8 


DB 


$0A 


DA3C 


07 


9 


DB 


$07 


DA3D 


IF 


10 


DB 


$1F 


DA3E 


IC 


11 


DB 


$ic 


DA3F 


08 


12 


DB 


$08 


DA40 


0C 


13 


DB 


$0C 


DA41 


19 


14 


DB 


$19 


DA42 


0B 


15 


DB 


$0B 


DA43 


ID 


16 


DB 


$1D 


DA44 


12 


17 


DB 


$12 


DA45 


14 


18 

19 E 
20 
21 
22 


DB 
ENDCCT 


$14 


DA46 


CFDA 


23 ] 


[NTLJ DW 


DOESC 


DA48 


D5DA 


24 


DW 


DOHIE 


DA4A 


DBDA 


25 


DW 


DOCR 


DA4C 


E0DA 


26 


DW 


DOLF 


DA4E 


lADB 


27 


DW 


DOBEL 


DA50 


2DDB 


28 


DW 


CURSUP 


DA52 


79DB 


29 


DW 


ADVC 


DA54 


36DB 


30 


DW 


DOBS 


DA56 


3DDB 


31 


DW 


DOFF 


DA58 


43DB 


32 


DW 


HOMEC 


DA5A 


4CDB 


33 


DW 


DOVT 


DA5C 


6ADB 


34 


DW 


INTML 


DA5E 


FBFE 


35 


DW 


D0H12 


DA60 


4FFF 


36 
37 
38 
39 
40 


DW 
endif 


D0H14 


DA62 


AD12BF 


41 \ 


/0UT2 LDA 


ESCFLG 


DA65 


F038 


42 
43 


BZ 


INTLT 



; Escape 
??? 

Carriage return 
Linefeed 
Bell character 
Cursor up 

Backspace 
Form feed 

Vertical tab 
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DA67 C902 
DA69 9030 



DA6B F012 



DA6D A5F6 
DA6F 38 
DA70 E920 
DA72 3004 



DA74 C950 
DA76 9002 



DA78 A900 



DA7A 85F7 



DA7C 4C9BDA 



DA7F A5F6 
DA81 38 
DA82 E920 
DA84 3004 
DA86 C918 
DA88 9002 



DA8A A900 
DA8C 85F5 



DA8E 20CCDB 



DA91 A5F7 
DA93 85F4 



44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 



CMP 
BL 



#2 
INTLR 



BE INTLO 

Branch if character in $00..$1F 

LDA TEMP 

SEC 

SBC #$20 

BM INTLM 

Branch if character in $20..$6F 

CMP #$50 
BL INTLN 



INTLM LDA 



INTLN STA 



#0 



TEMP+1 



ifndef GRIG 
INTLR DEC ESCFLG 

RTS 
else 

JMP INTLR 
endif 



INTLO LDA 
SEC 
SBC 
BM 
CMP 
BL 



INTLP LDA 
INTLQ STA 



JSR 



LDA 
STA 



TEMP 

#$20 
INTLP 
#$18 
INTLQ 



#0 
VPOS 



CVP2SP 



TEMP+1 
HPOS 
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104 


/ 






105 


/ 






106 


/ 




DA95 A900 


107 
108 
109 
110 


LDA 

/ 
/ 
t 


#0 


DA97 8D12BF 


111 
112 
113 
114 


STESCF 

t 
t 


STA ESCFLG 


DA9A 60 


115 


RTS 






116 


ifdef ORIG 






117 








118 








119 






DA9B CE12BF 


120 


INTLR DEC 


ESCFLG 


DA9E 60 


121 


RTS 






122 


endif 






123 








124 








125 






DA9F A5F6 


126 


INTLT LDA 


TEMP 




127 


ifdef ORIG 




DAAl 297F 


128 


AND 


#$7F 




129 


endif 




DAA3 C920 


130 


CMP 


#$20 


DAA5 900D 


131 
132 
133 
134 


BL 


INTLV 




135 


'ifndef ORIG 




136 


AND 


#$7F 




137 


endif 




DAA7 C960 


138 


CMP 


#$60 




139 


ifndef ORIG 




140 


LDA 


TEMP 




141 


endif 




DAA9 9002 


142 
143 
144 
145 


BL 


INTLU 




146 


'ifndef ORIG 




147 


BIT 


ABF31 




148 


BM 


INTLY 




149 


endif 




DAAB E920 


150 


SBC 


#$20 


DAAD 293 F 


151 


INTLU AND 


#$3F 




152 


ifndef ORIG 




153 


INTLY EOR 


#$80 




154 


else 




DAAF 0980 


155 


ORA 


#$80 




156 


endif 




DABl 4C76DB 


157 


JMP 


WCADVC 




158 


;.PAGE 'Handle output of $00..$1F 




159 








160 


; Set count of characters in 1 




161 






DAB4 A20D 


162 


INTLV LDX 


#ENDCCT-CCHTBL-1 


DAB6 DD38DA 


163 


INTLW CMP 


CCHTBL.X 
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DAB9 F004 
DABB CA 
DABC 10F8 



DABE 60 



DABF 8A 

DAC0 0A 

DACl AA 

DAC2 BD47DA 177 

DAC5 85C0 178 

DAC7 BD46DA 179 

DACA 85BF 180 



164 BE INTLX 

165 DEX 

166 BNM INTLW 

167 ; 

168 ; Return to caller 

169 ; 

170 RTS 

171 ; 

172 ; 

173 ; 

174 INTLX TXA 

175 ASL A 

176 TAX 
LDA INTLJ+1,X 
STA ABF+1 
LDA INTLJ.X 
STA ABF 

181 ifndef GRIG 

182 

183 

184 

185 LDA #$80 

186 endif 
187 
188 
189 

DACC 6CBF00 190 JMP (ABF) 
191 ifndef GRIG 
192 

193 ; 

194 ; 

195 ; 

196 DGESC LDA #1 

197 ; 

198 ; Unconditional branch 
199 

200 ' BNZ STESCF 
201 

202 
203 
204 

205 DGHIE 

206 LDA #3 

207 ; 

208 ; Unconditional branch 

209 ; 

210 BNZ STESCF 

211 else 
212 

213 

214 

215 

DACF A901 216 DGESC LDA #1 
DADl 8D12BF 217 STA ESCFLG 
DAD4 60 218 RTS 

219 
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220 








221 








222 






DAD5 A903 


223 


DOHIE LDA 


#3 


DAD7 8D12BF 


224 


STA 


ESCFLG 


DADA 60 


225 


RTS 






226 


endif 






227 






*>|<!|C!|C>|<!|<!|C!|C!|<!|<!|C!|C!|<>|<!|C!|C!(CS(CS|CS|CS(CS(CS|C!|CS(!S|<S|CS|CS|<>|<S|CS|C>|<S|<S|CS|CS|<>|<S|C!|C>|<S|<S|C!|C>|<>|<!|C!|C>|<>|<S|CS|C 




228 








229 








230 






DADB A000 


231 


DOCR LDY 


#0 


DADD 84F4 


232 
233 
234 
235 


STY 


HPGS 


DADF 60 


236 
237 


RTS 




*S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|<S|(S|(S|(S|(S|<!|(!|(!|<!|<!|<!|<!|<!|<!|<!|<!|<S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|(S|<!|<!|(!|<!|<^ 




238 








239 








240 






DAE0 A5F5 


241 


DOLF LDA 


VPGS 


DAE2 C917 


242 


CMP 


#23 


DAE4 F005 


243 
244 
245 
246 


BE 

/ 
/ 
t 


INTMA 


DAE6 E6F5 


247 
248 
249 
250 


INTLZ INC 

/ 
t 
t 


VPGS 




251 


ifndef GRIG 




252 


BNM 


INTMJ 




253 


else 




DAE8 4CCCDB 


254 


JMP 


CVP2SP 




255 


endif 






256 








257 








258 






DAEB A5F4 


259 


INTMA LDA 


HPGS 


DAED 48 


260 
261 
262 
263 


PHA 




DAEE A200 


264 


LDX 


#0 


DAF0 86F5 


265 
266 
267 
268 


STX 

/ 
t 
t 


VPGS 


DAF2 20CCDB 


269 
270 
271 
272 


JSR 

/ 
t 
t 


CVP2SP 




273 


INTMB 






274 


ifndef GRIG 




275 


LDY 


#3 




276 


LGGP LDA 


SLLPTR.Y 




277 


STA 


AC1,Y 
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278 


DEY 








279 


BNM 


LOOP 






280 


else 






DAF5 20EFDB 


281 
282 
283 
284 
285 


JSR 
endif 


INTNP 




DAF8 E8 


286 


INX 






DAF9 86F5 


287 
288 
289 
290 


STX 


VPOS 




DAFB 20CCDB 


291 
292 
293 
294 


JSR 


CVP2SP 




DAFE A027 


295 


LDY 


#39 




DB00 B1F0 


296 ] 


[NTMC LDA 


(SLLPTR),Y 




DB02 91C1 


297 


STA 


(AC1),Y 




DB04 B1F2 


298 


LDA 


(SLRPTR),Y 




DB06 91C3 


299 


STA 


(AC3),Y 




DB08 88 


300 


DEY 






DB09 10F5 


301 
302 
303 
304 


BNM 


INTMC 




DB0B E017 


305 


CPX 


#23 




DB0D D0E6 


306 
307 
308 
309 


BNE 


INTMB 






310 


ifndef GRIG 






311 


JSR 


DOCR 






312 


else 






DB0F A900 


313 


LDA 


#0 




DBll 85F4 


314 
315 
316 
317 
318 


STA 

endif 


HPOS 




DB13 206ADB 


319 
320 
321 
322 


JSR 


INTML 




DB16 68 


323 


PLA 






DB17 85F4 


324 
325 


STA 


HPOS 






326 


Return 


to caller 






327 








DB19 60 


328 

329 
330 


RTS 
.PAGE 








331 


Delay 


64 periods 






332 








DBIA A940 


333 [ 


DOBEL LDA 


#64 




DBIC 2066D7 


334 
335 


JSR 


TDELAY 






336 


Set Ic 


op control val 


ue 
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337 ; 
DBIF A0C0 338 LDY #192 

339 ; 

340 ; Delay 12 periods 

341 ; 

342 INTME LDA #12 
JSR TDELAY 



DB21 A90C 

DB23 2066D7 343 

344 ; 



DB26 AD30C0 347 

348 ; 



345 ; Toggle speaker 

346 ; 
LDA AC030 



DB29 88 



349 ; Decrement loop control value 

350 ; 
DEY 



DB2A D0F5 



DB2C 60 



351 

352 ; 

353 ; Branch if loop not done 

354 ; 

355 BNZ INTME 

356 ; 

357 ; Retrun to caller 

358 ; 

359 *INTMF 

360 ANRTS RTS 
361 

362 

363 

364 
DB2D A5F5 365 CURSUP LDA VPOS 
DB2F F0FB 366 BZ ANRTS ; INTMF 

367 

368 

369 
DB31 C6F5 370 DEC VPOS 

371 ifndef GRIG 

372 BNM INTMJ 

373 else 

DB33 4CCCDB 374 JMP CVP2SP 
375 endif 
376 

377 

378 

379 

DB36 C000 380 DOBS CPY #0 
DB38 F002 381 BE INTMG 

382 ; 

383 ; 

384 ; 

DB3A C6F4 385 DEC HPOS 

386 ; 

387 ; 

388 ; 

DB3C 60 389 INTMG RTS 
390 

391 
392 
393 
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DB67 4CCCDB 



DB6A A6F4 
DB6C A9A0 
DB6E 2076DB 
DB71 90F9 
DB73 86F4 
DB75 60 



DB3D 2043DB 394 DOFF JSR HOMEC 

395 

396 

397 

398 ifdef GRIG 
DB40 4C4CDB 399 JMP DOVT 

400 endif 

401 ifdef GRIG 
402 

403 

404 

405 

DB43 A000 406 HGMEC LDY #0 
DB45 84F5 407 STY VPGS 
DB47 84F4 408 STY HPGS 
DB49 4CCCDB 409 JMP CVP2SP 

410 endif 

411 

412 

413 

414 

DB4C A5F4 415 DGVT LDA HPGS 

DB4E 48 416 PHA 

DB4F A5F5 417 LDA VPGS 

DB51 48 418 PHA 

DB52 206ADB 419 INTMK JSR INTML 

DB55 20DBDA 420 JSR DGCR 

DB58 20E6DA 421 JSR INTLZ 

DB5B A5F5 422 LDA VPGS 

DB5D C918 423 CMP #24 

DB5F 90F1 424 BL INTMK 

DB61 68 425 PLA 

DB62 85F5 426 STA VPGS 

DB64 68 427 PLA 

428 ifndef GRIG 

429 BNM SETHP 
430 
431 
432 

433 HGMEC LDA #0 

434 STA VPGS 

435 SETHP 

436 endif 
DB65 85F4 437 STA HPGS 

438 ifndef GRIG 

439 INTMJ 



440 endif 

441 JMP CVP2SP 
442 
443 
444 

445 INTML LDX HPGS 

446 INTMN LDA #$A0 

447 JSR WCADVC 

448 BNC INTMN 

449 STX HPGS 

450 RTS 

451 ifndef GRIG 
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452 ;.PAGE 

453 

454 

455 

456 D0H12 BIT ABF31 

457 BM GA 
458 
459 
460 

461 NDEA9 LDA #$80 

462 STA AE0 
463 
464 
465 
466 GA RTS 

467 

468 
469 
470 

471 D0H14 STA AEl 

472 ASL A 

473 STA AE0 
474 
475 
476 
477 RTS 

478 

479 
480 
481 

482 DOH05 ASL A 

483 DOH06 STA ABF12 
484 
485 
486 
487 RTS 

488 

489 
490 
491 
492 

493 DOH0F ASL A 

494 DOH0E STA INTLY+1 
495 
496 
497 

498 RTS 

499 endif 



500 ;.PAGE 'Write character to screen' 

501 ; 

502 ; Write character to screen 

503 ; 

DB76 2083DB 504 WCADVC JSR WRCH2S 

505 ; 

506 ; Branch if cursor at end of line 
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507 






DB79 A4F4 


508 ADVC LDY 


HPOS 


DB7B C04F 


509 


CPY 


#79 


DB7D BOOB 


510 

511 


BGE 


INTMQ 




512 


Advance cursor 




513 






DB7F C8 


514 


INY 




DB80 84F4 


515 
516 


STY 


HPOS 




517 


Return 


to caller 




518 






DB82 60 


519 ] 
520 


[NTMQ RTS 




*s|<s|(s|(s|(s|<!|<!|<*>t;***>t;!|<!|<!|<!|<!|<s|(s|(s|<s|(s|(s|<s|<!|(s|(s|<s|<s|(!|<****>t;>t;***>t;**>t;>t;***>t;***>t;***>t;**^ 




521 








522 


Save c 


haracter on stack 




523 






DB83 48 


524 WRCH2S 


PHA 




525 








526 


Branch 


if null character 




527 








528 


ifndef GRIG 




529 


TAY 






530 


BZ 


INTMT 




531 


else 




DB84 C900 


532 


CMP 


#0 


DB86 F014 


533 


BE 


INTMT 




534 


endif 






535 








536 








537 






DB88 24E0 


538 


BIT 


AEO 


DB8A 1010 


539 
540 
541 
542 


BNM 


INTMT 


DB8C A5F6 


543 


LDA 


TEMP 


DB8E 297F 


544 


AND 


#$7F 


DB90 C941 


545 


CMP 


#'A 


DB92 9008 


546 


BL 


INTMT 


DB94 C95B 


547 


CMP 


#'Z+1 


DB96 B004 


548 


BGE 


INTMT 


DB98 68 


549 


PLA 




DB99 4980 


550 


EOR 


#$80 


DB9B 48 


551 
552 
553 
554 


PHA 




DB9C A5F4 


555 ] 


[NTMT LDA 


HPOS 


DB9E 38 


556 


SEC 




DB9F EDllBF 


557 


SBC 


NBFll 


DBA2 300F 


558 


BM 


INTMY 


DBA4 C928 


559 


CMP 


#40 


DBA6 BOll 


560 


BGE 


INTMZ 


DBA8 A8 


561 


TAY 




DBA9 68 


562 


PLA 




DBAA D004 


563 


BNZ 


INTMX 


DBAC BIFO 


564 


LDA 


(SLLPTR),Y 


DBAE 4980 


565 


EOR 


#$80 
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DBB0 91F0 



DBB2 60 



DBB3 18 
DBB4 6928 



DBB6 4CBCDB 

DBB9 38 
DBBA E928 
DBBC A8 
DBBD 68 
DBBE D004 
DBC0 B1F2 
DBC2 4980 
DBC4 91F2 



DBC6 60 



DBC7 A900 
DBC9 4C83DB 



DBCC 
DBCE 
DBCF 
DBDl 
DBD3 
DBD5 
DBD7 
DBD9 
DBDB 
DBDD 
DBDF 
DBE0 
DBEl 
DBE3 
DBE5 
DBE7 
DBE9 
DBEA 
DBEC 



A5F5 

4A 

2903 

0904 

85F1 

A5F5 

2918 

9002 

697F 

85F0 

0A 

0A 

05F0 

85F0 

85F2 

A5F1 

18 

6904 

85F3 



566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 

600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 



INTMX STA (SLLPTR),Y 
; Return to caller 
RTS 



INTMY CLC 

ADC #40 
ifndef GRIG 

BNM INTNA 
else 

JMP 
endif 
INTMZ SEC 

SBC 
INTNA TAY 

PLA 

BNZ 

LDA 

EOR 
INTNB STA 



INTNA 



#40 



INTNB 
(SLRPTR),Y 
#$80 
(SLRPTR),Y 



Return to caller 



RTS 
ifdef GRIG 



INVERT 



JMP 



LDA #0 
WRCH2S 



endif 

.PAGE 'Convert vertical position to screen addresses' 



CVP2SP 

LSR 

AND 

GRA 

STA 

LDA 

AND 

BNC 

ADC 
INTNG STA 

ASL 

ASL 

GRA 

STA 

STA 

LDA 

CLC 

ADC 

STA 
ifndef GRIG 
INTNG 



LDA 

A 

#$03 

#$04 

SLLPTR+1 

VPGS 

#$18 

INTNG 

#128-1 

SLLPTR 

A 

A 

SLLPTR 

SLLPTR 

SLRPTR 

SLLPTR+1 

#<1024 
SLRPTR+1 



VPGS 
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625 


endif 






626 








627 


Return 


to caller 




628 






DBEE 60 


629 


RTS 






630 


ifdef GRIG 






631 








632 








633 






DBEF A5F1 


634 ] 


[NTNP LDA 


SLLPTR+1 


DBFl 85C2 


635 


STA 


ACl+1 


DBF3 A5F3 


636 


LDA 


SLRPTR+1 


DBFS 85C4 


637 


STA 


AC3+1 


DBF7 A5F0 


638 


LDA 


SLLPTR 


DBF9 85C1 


639 


STA 


ACl 


DBFB 85C3 


640 
641 


STA 


AC 3 




642 


Return 


to caller 




643 






DBFD 60 


644 ] 


[NTNQ RTS 






645 


endif 






646 








647 








648 






DBFE AA 


649 ] 


[NTNR TAX 




DBFF F0FC 


650 


BZ 


INTNQ 


DC01 A5F5 


651 


LDA 


VPOS 


DC03 48 


652 


PHA 




DC04 8A 


653 


TXA 




DC05 48 


654 


PHA 




DC06 38 


655 


SEC 




DC07 E928 


656 


SBC 


#40 


DC09 1003 


657 


BNM 


INTNT 


DC0B 18 


658 


CLC 




DC0C 6950 


659 


ADC 


#80 


DC0E 48 


660 ] 
661 
662 
663 


[NTNT PHA 




DC0F A917 


664 


LDA 


#23 


DCll 85F5 


665 
666 
667 
668 


STA 


VPOS 


DC13 20CCDB 


669 ] 
670 
671 
672 


[NTNU JSR 


CVP2SP 


DC16 A027 


673 


LDY 


#39 


DC18 B1F0 


674 ] 


[NTNV LDA 


(SLLPTR), Y 


DCIA 990002 


675 


STA 


A0200,Y 


DCID B1F2 


676 


LDA 


(SLRPTR),Y 


DCIF 992802 


677 


STA 


A0200+40,Y 


DC22 88 


678 


DEY 




DC23 10F3 


679 
680 
681 
682 


BNM 


INTNV 


DC25 68 


683 


PLA 




DC26 48 


684 


PHA 
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DC27 AA 


685 
686 
687 
688 


TAX 






689 


ifndef ORIG 




690 


LDA 


#SLLPTR 




691 


JSR 


INTNS 




692 


LDA 


#SLRPTR 




693 


JSR 


INTNS 




694 


else 




DC28 A027 


695 


LDY 


#39 


DC2A CA 


696 ] 


[NTNW DEX 




DC2B 1002 


697 


BNM 


INTNX 


DC2D A24F 


698 


LDX 


#79 


DC2F BD0002 


699 ] 


[NTNX LDA 


A0200,X 


DC32 91F0 


700 


STA 


(SLLPTR),Y 


DC34 88 


701 


DEY 




DC35 10F3 


702 


BNM 


I NTNW 


DC37 A027 


703 


LDY 


#39 


DC39 CA 


704 ] 


[NTNY DEX 




DC3A 1002 


705 
706 
707 
708 


BNM 


I NTNZ 


DC3C A24F 


709 


LDX 


#79 


DC3E BD0002 


710 ] 


[NTNZ LDA 


A0200,X 


DC41 91F2 


711 


STA 


(SLRPTR),Y 


DC43 88 


712 


DEY 




DC44 10F3 


713 


BNM 


INTNY 




714 


endif 




DC46 C6F5 


715 


DEC 


VPOS 


DC48 10C9 


716 
717 
718 
719 


BNM 


INTNU 


DC4A 68 


720 


PLA 




DC4B 68 


721 
722 
723 
724 


PLA 




DC4C 18 


725 


CLC 




DC4D 6D11BF 


726 


ADC 


NBFll 


DC50 8D11BF 


727 


STA 


NBFll 


DC53 68 


728 


PLA 




DC54 85F5 


729 
730 
731 
732 


STA 


VPOS 


DC56 4CCCDB 


733 


JMP 


CVP2SP 




734 


ifndef ORIG 




735 








736 








737 








738 ] 


[NTNS STA 


GB+1 




739 


LDY 


#39 




740 ] 


[NTNW DEX 






741 


BNM 


INTNX 




742 


LDX 


#79 




743 ] 


[NTNX LDA 


A0200,X 




744 ( 


IB STA 


(A00),Y 
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745 


DEY 








746 


BNM 


INTNW 






747 










748 










749 










750 


RTS 








751 


endif 








752 










753 










754 






DC59 


AD15BF 


755 


INTOA LDA 


CNFLGS 


DC5C 


4A 


756 


LSR 


A 


DC5D 


9013 


757 


BNC 


INTOC 


DC5F 


A5F4 


758 


LDA 


HPOS 


DC61 


C914 


759 


CMP 


#20 


DC63 


BO03 


760 
761 
762 
763 


BGE 

/ 
t 
t 


INTOB 


DC65 


4CE5FF 


764 
765 
766 
767 


JMP 

/ 
/ 


TAB3 


DC68 


38 


768 


INTOB SEC 




DC69 


EDllBF 


769 


SBC 


NBFll 


DC6C 


3014 


770 


BM 


INTOF 


DC6E 


C925 


771 


CMP 


#37 






772 


ifndef GRIG 






773 


BL 


INTOC 






774 


else 




DC70 


B001 


775 


BGE 


INTOD 


DC72 


60 


776 
111 
IIQ 
119 
780 
781 


INTOC RTS 
INTOD 
endif 




DC73 


A4F4 


782 


LDY 


HPOS 


DC75 


C04D 


783 


CPY 


#77 


DC77 


B006 


784 


BGE 


INTOE 


DC79 


38 


785 


SEC 




DC7A 


E924 


786 


SBC 


#36 






787 


ifndef ORIG 






788 


INTOF JMP 


INTNR 






789 


INTOE JMP 


AFFEl 






790 


INTOC RTS 








791 


else 




DC7C 


4CFEDB 


792 


JMP 


INTNR 


DC7F 


4CE1FF 


793 


INTOE JMP 


AFFEl 


DC82 


4CFEDB 


794 
795 


INTOF JMP 
endif 


INTNR 






796 


ifndef ORIG 






797 










798 










799 










800 


CCHTBL 


DB 






801 


DB 


$1E 






802 


DB 


$0D 






803 


DB 


$0A 






804 


DB 


$07 
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$1B 



; Escape 

Carriage return 

Linefeed 

Bell character 
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DC85 68 
DC86 85BD 
DC88 68 
DC89 85BE 



DC8B 68 
DC8C 68 



DC8D 68 
DC8E 85D8 
DC90 68 



805 




DB 


$1F 


806 




DB 


$ic 


807 




DB 


$08 


808 




DB 


$0C 


809 




DB 


$19 


810 




DB 


$0B 


811 




DB 


$1D 


812 




DB 


$12 


813 




DB 


$14 


814 




DB 


$05 


815 




DB 


$06 


816 




DB 


$0E 


817 




DB 


$0F 


818 


ENDCCT 




819 








820 








821 








822 


intl: 


DW 


DOESC 


823 




DW 


DOHIE 


824 




DW 


DOCK 


825 




DW 


DOLF 


826 




DW 


DOBEL 


827 




DW 


CURSUP 


828 




DW 


ADVC 


829 




DW 


DOBS 


830 




DW 


DOFF 


831 




DW 


HOMEC 


832 




DW 


DOVT 


833 




DW 


INTML 


834 




DW 


D0H12 


835 




DW 


D0H14 


836 




DW 


DOH05 


837 




DW 


DOH06 


838 




DW 


DOH0E 


839 




DW 


DOH0F 


840 








841 








842 








843 




DS 


8 


844 


endif 




87 


1st 


ON 




88 




INCLUDE STATUSO.IAS 


1 








2 




Save 


return address 


3 








4 


XARGOS 


PLA 


5 




STA 


ABD 


6 




PLA 




7 




STA 


ABD+1 


8 








9 




Disc£ 


ird integer value 


10 








11 




PLA 




12 




PLA 




13 








14 




Extract pointer from stat 


15 








16 




PLA 




17 




STA 


AD8 


18 




PLA 





Cursor up 

Backspace 
Form feed 

Vertical tab 
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DC91 


85D9 


19 
20 


STA 


AD8+1 






21 


Extract ??? from stack and save it 






22 






DC93 


68 


23 


PLA 




DC94 


85D6 


24 


STA 


AD6 


DC96 


68 


25 


PLA 




DC97 


85D7 


26 
27 


STA 


AD6+1 






28 


Restore return address 






29 






DC99 


A5BE 


30 


LDA 


ABD+1 


DC9B 


48 


31 


PHA 




DC9C 


A5BD 


32 


LDA 


ABD 


DC9E 


48 


33 
34 


PHA 








35 


Returr 


to caller 






36 






DC9F 


60 


37 
38 


RTS 




*S(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS^ 






39 










40 


Extract arguents off stack 






41 






DCAO 


2085DC 


42 J 

43 

44 

45 


5TATPR 


JSR XARGOS 


DCA3 


A900 


46 ] 


[NTOJ LDA 


#0 


DCA5 


A8 


47 


TAY 




DCA6 


91D8 


48 


STA 


(AD8),Y 


DCA8 


C8 


49 ] 


[NTOK INY 




DCA9 


91D8 


50 
51 
52 
53 


STA 


(AD8),Y 


DCAB 


A200 


54 ] 
55 
56 
57 


[NTOL LDX 


#0 


DCAD 


4CBBFF 


58 
59 


JMP 


AFFBB 


**************!|<!(!!(C!(C!(C!(!!(C!(C!|C!|CS(CS(C!|C!|C!(C!(!!(C!(!!(!!(!!(C!(!!(!!(!!|<!(!!(C!(C!(C!|C!(C!(C!(C!(C!(C!(!!(C!(C!(!!|<** 






60 










61 


Extract arguents off stack 






62 






DCB0 


2085DC 


63 J 
64 
65 
66 


jTATC JSR 


XARGOS 


DCB3 


A5D6 


67 


LDA 


AD6 


DCB5 


F0EC 


68 
69 
70 
71 


BZ 


INTOJ 


DCB7 


38 


72 


SEC 




DCB8 


AD19BF 


73 


LDA 


WPTR 


DCBB 


ED18BF 


74 


SBC 


RPTR 


DCBE 


A000 


75 


LDY 


#0 


DCC0 


91D8 


76 


STA 


(AD8),Y 
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DCC2 98 



DCC3 F0E3 



77 
78 
79 
80 
81 
82 
83 
84 
85 



TYA 

Unconditional branch 

BZ INTOK 



86 
87 
88 



Extract arguents off stack 



DCC5 2085DC 


89 STATD JSR 


XARGOS 




90 








91 








92 






DCC8 A900 


93 


LDA 


#0 


DCCA A007 


94 


LDY 


#8-1 


DCCC 91D8 


95 ] 


[NTOM STA 


(AD8),Y 


DCCE 88 


96 


DEY 




DCCF 10FB 


97 

98 

99 

100 


BNM 


INTOM 


DCDl A003 


101 


LDY 


#3 


DCD3 A901 


102 


LDA 


#$01 


DCD5 91D8 


103 


STA 


(AD8),Y 


DCD7 C8 


104 


INY 




DCD8 A910 


105 


LDA 


#$10 


DCDA 91D8 


106 
107 
108 
109 


STA 


(AD8),Y 


DCDC A006 


110 


LDY 


#6 


DCDE A923 


111 


LDA 


#$23 


DCE0 91D8 


112 
113 


STA 


(AD8),Y 




114 


Unconditional branch 




115 






DCE2 D0C7 


116 


BNZ 


INTOL 




89 


INCLUDE INCIDS.IAS 




1 
2 
3 
4 
5 / 


.PAGE 'ID 


search ' 


DCE4 68 


\DCE4 PLA 




DCE5 8574 


6 


STA 


A74 


DCE7 68 


7 


PLA 




DCE8 8575 


8 

9 

10 


STA 


A74+1 










11 






DCEA 68 


12 


PLA 




DCEB 858A 


13 


STA 


A8A 


DCED 68 


14 


PLA 




DCEE 858B 


15 
16 
17 


STA 


A8A+1 
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18 






DCF0 68 


19 


PLA 




DCFl 858C 


20 


STA 


A8C 


DCF3 68 


21 


PLA 




DCF4 858D 


22 
23 
24 
25 


STA 


A8C+1 


DCF6 A000 


26 


LDY 


#0 


DCF8 18 


27 


CLC 




DCF9 B18C 


28 


LDA 


(A8C),Y 


DCFB 658A 


29 


ADC 


A8A 


DCFD 858E 


30 


STA 


A8E 


DCFF C8 


31 


INY 




DD00 B18C 


32 


LDA 


(A8C),Y 


DD02 658B 


33 


ADC 


A8A+1 


DD04 858F 


34 
35 
36 
37 


STA 


A8E+1 


DD06 A920 


38 


LDA 


#$20 


DD08 857E 


39 


STA 


A7E 


DD0A 857F 


40 


STA 


A7E+1 


DD0C 8580 


41 


STA 


A7E+2 


DD0E 8581 


42 


STA 


A7E+3 


DD10 8582 


43 


STA 


A7E+4 


DD12 8583 


44 


STA 


A7E+5 


DD14 8584 


45 


STA 


A7E+6 


DD16 8585 


46 
47 
48 
49 


STA 


A7E+7 


DD18 A000 


50 


LDY 


#0 


DDIA A200 


51 


LDX 


#0 


DDIC B18E 


52 


LDA 


(A8E),Y 


DDIE C961 


53 


CMP 


#'a 


DD20 9007 


54 


BL 


INTON 


DD22 C97B 


55 


CMP 


#'z+l 


DD24 B003 


56 


BGE 


INTON 


DD26 38 


57 


SEC 




DD27 E920 


58 


SBC 


#$20 


DD29 857E 


59 ] 


[NTON STA 


A7E 


DD2B C8 


60 ] 
61 
62 
63 


[NTOP INY 




DD2C B18E 


64 


LDA 


(A8E),Y 


DD2E C961 


65 


CMP 


#'a 


DD30 900A 


66 


BL 


INTOS 


DD32 C97B 


67 


CMP 


#'z+l 


DD34 B006 


68 


BGE 


INTOS 


DD36 38 


69 


SEC 




DD37 E920 


70 
71 
72 
73 


SBC 


#$20 


DD39 4C54DD 


74 
75 
76 
77 


JMP 


INTOW 
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DD3C C930 


78 


INTOS CMP 


#'0 


DD3E 9006 


79 


BL 


INTOU 


DD40 C93A 


80 


CMP 


#'9+1 


DD42 B002 


81 


BGE 


INTOU 


DD44 900E 


82 


BL 


INTOW 


DD46 C941 


83 


INTOU CMP 


#'A 


DD48 9014 


84 


BL 


INTOZ 


DD4A C95B 


85 


CMP 


#'Z+1 


DD4C 9006 


86 


BL 


INTOW 


DD4E C95F 


87 


CMP 


#$5F 


DD50 D00C 


88 


BNE 


INTOZ 


DD52 F0D7 


89 


BE 


INTOP 


DD54 E8 


90 


INTOW I NX 




DD55 E008 


91 


CPX 


#8 


DD57 B0D2 


92 


BGE 


INTOP 


DD59 957E 


93 


STA 


A7E,X 


DD5B 4C2BDD 


94 


JMP 


INTOP 


DD5E 88 


95 


INTOZ DEY 




DD5F 98 


96 


TYA 




DD60 A000 


97 


LDY 


#0 


DD62 18 


98 


CLC 




DD63 718C 


99 


ADC 


(A8C),Y 


DD65 918C 


100 


STA 


(A8C),Y 


DD67 C8 


101 


INY 




DD68 B18C 


102 


LDA 


(A8C),Y 


DD6A 6900 


103 


ADC 


#0 


DD6C 918C 


104 


STA 


(A8C),Y 


DD6E A57E 


105 


LDA 


A7E 


DD70 38 


106 


SEC 




DD71 E941 


107 


SBC 


#$41 


DD73 0A 


108 


ASL 


A 


DD74 A8 


109 


TAY 




DD75 B9F5DD 


110 


LDA 


RWREFS.Y 


DD78 8588 


111 


STA 


A88 


DD7A C8 


112 


INY 




DD7B B9F5DD 


113 


LDA 


RWREFS,Y 


DD7E 8589 


114 


STA 


A88+1 


DD80 A000 


115 


LDY 


#0 


DD82 B188 


116 


LDA 


(A88),Y 


DD84 8586 


117 


STA 


A86 


DD86 A200 


118 


LDX 


#0 


DD88 A001 


119 


LDY 


#1 


DD8A E8 


120 


INTPB INX 




DD8B C8 


121 


INY 




DD8C B188 


122 


LDA 


(A88),Y 


DD8E D57E 


123 


CMP 


A7E,X 


DD90 D006 


124 


BNE 


INTPD 


DD92 E007 


125 


CPX 


#7 


DD94 D0F4 


126 


BNE 


INTPB 


DD96 F016 


127 


BE 


INTPF 


DD98 C686 


128 


INTPD DEC 


A86 


DD9A F034 


129 


BZ 


INTPG 


DD9C A200 


130 


LDX 


#0 


DD9E A001 


131 


LDY 


#1 


DDA0 A588 


132 


LDA 


A88 


DDA2 18 


133 


CLC 




DDA3 690B 


134 


ADC 


#$0B 


DDA5 8588 


135 


STA 


A88 


DDA7 9002 


136 


BNC 


INTPE 


DDA9 E689 


137 


INC 


A88+1 
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DDAB 


4C8ADD 


138 


INTPE JMP 


INTPB 


DDAE 


C8 


139 


INTPF INY 




DDAF 


B188 


140 


LDA 


(A88),Y 


DDBl 


857C 


141 


STA 


A7C 


DDB3 


C8 


142 


INY 




DDB4 


B188 


143 


LDA 


(A88),Y 


DDB6 


857D 


144 


STA 


A7C+1 


DDB8 


A002 


145 


LDY 


#2 


DDBA 


A57C 


146 


LDA 


A7C 


ODBC 


918C 


147 


STA 


(A8C),Y 


DDBE 


C8 


148 


INY 




DDBF 


A900 


149 


LDA 


#0 


DDCl 


918C 


150 


STA 


(A8C),Y 


DDC3 


C8 


151 


INY 




DDC4 


A57D 


152 


LDA 


A7C+1 


DDC6 


918C 


153 


STA 


(A8C),Y 


DDC8 


C8 


154 


INY 




DDC9 


A900 


155 


LDA 


#0 


DDCB 


918C 


156 


STA 


(A8C),Y 


DDCD 


4CEEDD 


157 


JMP 


INTPI 


DDD0 


A002 


158 


INTPG LDY 


#2 


DDD2 


A900 


159 


LDA 


#0 


DDD4 


918C 


160 


STA 


(A8C),Y 


DDD6 


C8 


161 


INY 




DDD7 


918C 


162 


STA 


(A8C),Y 


DDD9 


C8 


163 


INY 




DDDA 


C8 


164 


INY 




DDDB 


918C 


165 


STA 


(A8C),Y 


DDDD 


88 


166 


DEY 




DDDE 


A915 


167 


LDA 


#$15 


DDE0 


918C 


168 


STA 


(A8C),Y 


DDE2 


A00E 


169 


LDY 


#$0E 


DDE4 


A207 


170 


LDX 


#7 


DDE6 


88 


171 


INTPH DEY 




DDE7 


B57E 


172 


LDA 


A7E,X 


DDE9 


918C 


173 


STA 


(A8C),Y 


DDEB 


CA 


174 


DEX 




DDEC 


10F8 


175 


BNM 


INTPH 


DDEE 


A575 


176 


INTPI LDA 


A74+1 


DDF0 


48 


177 


PHA 




DDFl 


A574 


178 


LDA 


A74 


DDF3 


48 


179 


PHA 




DDF4 


60 


180 
181 


RTS 




*S(C!|CS|CS(CS|CS|CS|CS(CS(!!(CS|CS(CS(C!|C!(!S(C!(C!(C!(C!(CS(C!(C!|CS(CS(C!|CS|C!(CS(C!|CS|CS(CS(C!|C!|C!(CS(CS|C!|CS(CS(C!|CS|CS(CS(C!|CS(!S(CS(C!|CS^ 






182 










183 










184 






DDF5 


2CDE 


185 


RWREFS 


DW ANDK 


DDF7 


42DE 


186 


DW 


BEGK 


DDF9 


4DDE 


187 


DW 


CASK 


DDFB 


63DE 


188 


DW 


DIVK 


DDFD 


84DE 


189 


DW 


ENDK 


DDFF 


A5DE 


190 


DW 


FORK 


DEOl 


DIDE 


191 


DW 


GOTOK 


DE03 


29DE 


192 


DW 


ATSK 


DE05 


DCDE 


193 


DW 


IFK 


DE07 


29DE 


194 


DW 


ATSK 


DE09 


29DE 


195 


DW 


ATSK 


DE0B 


08DF 


196 


DW 


LABK 
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DE0D 


13DF 


197 


DW 


MODK 


DE0F 


lEDF 


198 


DW 


NOTK 


DEll 


29DF 


199 


DW 


OFK 


DE13 


3FDF 


200 


DW 


PROCK 


DE15 


29DE 


201 


DW 


ATSK 


DE17 


60DF 


202 


DW 


REPK 


DE19 


76DF 


203 


DW 


SETK 


DEIB 


97DF 


204 


DW 


THENK 


DEID 


B8DF 


205 


DW 


UNITK 


DEIF 


D9DF 


206 


DW 


VARK 


DE21 


E4DF 


207 


DW 


WHILK 


DE23 


29DE 


208 


DW 


ATSK 


DE25 


29DE 


209 


DW 


ATSK 


DE27 


29DE 


210 

211 


DW 


ATSK 


*S(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|CS|CS(CS(CS|CS|CS(CS(C!|C 






212 










213 










214 






DE29 


00 


215 


ATSK DB 


$00 


DE2A 


40 


216 


ASC 


'@' 


DE2B 


23 


217 


DB 


$23 


DE2C 


02 


218 


ANDK DB 


$02 


DE2D 


414E4420 


219 


ASC 


'AND 


DE35 


2702 


220 


DB 


$27, $02 


DE37 


00 


221 


DB 


$00 


DE38 


41525241 


222 


ASC 


' ARRAY 


DE40 


2C00 


223 


DB 


$2C,$00 


DE42 


01 


224 


BEGK DB 


$01 


DE43 


42454749 


225 


ASC 


'BEGIN 


DE4B 


1300 


226 


DB 


$13, $00 


DE4D 


02 


227 


CASK DB 


$02 


DE4E 


43415345 


228 


ASC 


'CASE 


DE56 


1500 


229 


DB 


$15, $00 


DE58 


00 


230 


DB 


$00 


DE59 


434F4E53 


231 


ASC 


'CONST 


DE61 


1C00 


232 


DB 


$1C,$00 


DE63 


03 


233 


DIVK DB 


$03 


DE64 


44495620 


234 


ASC 


'DIV 


DE6C 


2703 


235 


DB 


$27, $03 


DE6E 


00 


236 


DB 


$00 


DE6F 


444F2020 


237 


ASC 


'DO 


DE77 


0600 


238 


DB 


$06, $00 


DE79 


00 


239 


DB 


$00 


DE7A 


444F574E 


240 


ASC 


' DOWNTO ' 


DE82 


0800 


241 


DB 


$08, $00 


DE84 


03 


242 


ENDK DB 


$03 


DE85 


454E4420 


243 


ASC 


'END 


DE8D 


0900 


244 


DB 


$09, $00 


DE8F 


00 


245 


DB 


$00 


DE90 


454C5345 


246 


ASC 


'ELSE 


DE98 


0D00 


247 


DB 


$0D,$00 


DE9A 


00 


248 


DB 


$00 


DE9B 


45585445 


249 


ASC 


'EXTERNAL' 


DEA3 


3500 


250 


DB 


$35, $00 


DEA5 


04 


251 


FORK DB 


$04 


DEA6 


464F5220 


252 


ASC 


'FOR 


DEAE 


1800 


253 


DB 


$18, $00 


DEB0 


00 


254 


DB 


$00 


DEBl 


46494C45 


255 


ASC 


'FILE 
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DEB9 2E00 


256 


DB 


$2E,$00 


DEBB 00 


257 


DB 


$00 


DEBC 464F5257 


258 


ASC 


'FORWARD ' 


DEC4 2200 


259 


DB 


$22, $00 


DEC6 00 


260 


DB 


$00 


DEC7 46554E43 


261 


ASC 


'FUNCTION' 


DECF 2000 


262 


DB 


$20, $00 


DEDl 01 


263 


GOTOK DB 


$01 


DED2 474F544F 


264 


ASC 


' GOTO 


DEDA 1A00 


265 


DB 


$1A,$00 


DEDC 04 


266 


IFK DB 


$04 


DEDD 49462020 


267 


ASC 


'IF 


DEES 1400 


268 


DB 


$14, $00 


DEE7 00 


269 


DB 


$00 


DEES 494D504C 


270 


ASC 


'IMPLEMEN' 


DEF0 3400 


271 


DB 


$34, $00 


DEF2 00 


272 


DB 


$00 


DEF3 494E2020 


273 


ASC 


'IN 


DEFB 290E 


274 


DB 


$29,$0E 


DEED 00 


275 


DB 


$00 


DEFE 494E5445 


276 


ASC 


'INTERFAC 


DF06 3300 


277 


DB 


$33, $00 


DF08 01 


278 


LABK DB 


$01 


DF09 4C414245 


279 


ASC 


'LABEL 


DFll 1B00 


280 


DB 


$1B,$00 


DF13 01 


281 


MODK DB 


$01 


DF14 4D4F4420 


282 


ASC 


'MOD 


DFIC 2704 


283 


DB 


$27, $04 


DFIE 01 


284 


NOTK DB 


$01 


DFIF 4E4F5420 


285 


ASC 


'NOT 


DF27 2600 


286 


DB 


$26, $00 


DF29 02 


287 


OFK DB 


$02 


DF2A 4F462020 


288 


ASC 


'OF 


DF32 0B00 


289 


DB 


$0B,$00 


DF34 00 


290 


DB 


$00 


DF35 4F522020 


291 


ASC 


'OR 


DF3D 2807 


292 


DB 


$28, $07 


DF3F 03 


293 


PROCK DB 


$03 


DF40 50524F43 


294 


ASC 


'PROCEDUR' 


DF48 1F00 


295 


DB 


$1F,$00 


DF4A 00 


296 


DB 


$00 


DF4B 50524F47 


297 


ASC 


'PROGRAM ' 


DF53 2100 


298 


DB 


$21, $00 


DF55 00 


299 


DB 


$00 


DF56 5041434B 


300 


ASC 


' PACKED ' 


DF5E 2B00 


301 


DB 


$2B,$00 


DF60 02 


302 


REPK DB 


$02 


DF61 52455045 


303 


ASC 


'REPEAT ' 


DF69 1600 


304 


DB 


$16, $00 


DF6B 00 


305 


DB 


$00 


DF6C 5245434F 


306 


ASC 


'RECORD ' 


DF74 2D00 


307 


DB 


$2D,$00 


DF76 03 


308 


SETK DB 


$03 


DF77 53455420 


309 


ASC 


'SET 


DF7F 2A00 


310 


DB 


$2A,$00 


DF81 00 


311 


DB 


$00 


DF82 5345474D 


312 


ASC 


'SEGMENT ' 


DF8A 2100 


313 


DB 


$21, $00 


DF8C 00 


314 


DB 


$00 


DF8D 53455041 


315 


ASC 


'SEPARATE' 
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DF95 


3600 


316 


DB 


$36, $00 


DF97 


03 


317 


THENK DB 


$03 


DF98 


5448454E 


318 


ASC 


'THEN 


DFA0 


0C00 


319 


DB 


$0C,$00 


DFA2 


00 


320 


DB 


$00 


DFA3 


544F2020 


321 


ASC 


'TO 


DFAB 


0700 


322 


DB 


$07, $00 


DFAD 


00 


323 


DB 


$00 


DFAE 


54595045 


324 


ASC 


'TYPE 


DFB6 


1D00 


325 


DB 


$1D,$00 


DFB8 


03 


326 


UNITK DB 


$03 


DFB9 


554E4954 


327 


ASC 


'UNIT 


DFCl 


3200 


328 


DB 


$32, $00 


DFC3 


00 


329 


DB 


$00 


DFC4 


554E5449 


330 


ASC 


'UNTIL 


DFCC 


0A00 


331 


DB 


$0A,$00 


DFCE 


00 


332 


DB 


$00 


DFCF 


55534553 


333 


ASC 


'USES 


DFD7 


3100 


334 


DB 


$31, $00 


DFD9 


01 


335 


VARK DB 


$01 


DFDA 


56415220 


336 


ASC 


'VAR 


DFE2 


1E00 


337 


DB 


$1E,$00 


DFE4 


02 


338 


WHILK DB 


$02 


DFE5 


5748494C 


339 


ASC 


'WHILE 


DEED 


1700 


340 


DB 


$17, $00 


DFEF 


00 


341 


DB 


$00 


DFF0 


57495448 


342 


ASC 


'WITH 


DFF8 


1900 


343 
344 
345 
346 


DB 


$19, $00 


DFFA 


00 


347 


HSL0T2 


DB $00 


DFFB 


0000 


348 


CURTRK 


DB $00, $00 


DFFD 


00 


349 


ADFFD DB 


$00 


DFFE 


00 


350 


ADFFE DB 


$00 


DFFF 


00 


351 


ADFFF DB 


$00 
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^^^^^^^^g^K^^^^^^^^^^^^^^^^^^^M 


i^BH 


^r^^^"^^TP ^^^ r ' ^^1 


^1 ~. ' ^^ ""'■ '^^1 











:^i 



THE END 
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